Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

jj100

UserForm em Tela Cheia Centralizado

7 posts neste tópico

Olá .!!

Estou utilizando o seguinte comando para abrir meu UserForm em tela cheia:

Private Sub UserForm_Initialize()

Application.WindowState = xlMaximized

Me.Height = Application.Height

Me.Width = Application.Width

Me.Left = Application.Left

Me.Top = Application.Top

End Sub

funciona perfeitamente, porém o userForm criado vai para o Canto esquerdo da tela..

tem como ele ficar em tela cheia centralizado??

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa tarde!

olha este link:http://www.ricardohorta.net/ms_excel_xp/rap/exp_rap_06_07_17_h0700.html

Acho que vai te ajudar!!


O truque da filosofia é começar por algo tão simples que ninguém ache digno de nota e terminar por algo tão complexo que ninguém entenda.

16659376348_0bf967577c_s.jpg

0

Compartilhar este post


Link para o post
Compartilhar em outros sites
Boa tarde!

olha este link:http://www.ricardohorta.net/ms_excel_xp/rap/exp_rap_06_07_17_h0700.html

Acho que vai te ajudar!!

muito bom o artigo.!

mas não encontrei exatamente o que eu quero..

veja a imagem anexa.

o UserForm criado é pequeno, ai quando executa ele com a macro que falei ele fica no canto da Tela.

queria que ele ficasse no meio ..

post-534921-1279127705_thumb.jpg

post-534921-1279127761_thumb.jpg

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa tarde!

Faça o seguinte > ALT F11>no lado esquerdo em PROPRIEDADES USEFORM> vá até o item StartUpPositon> selecione>1-CenterOwner. em seguida aperte F5 para ver como esta ficando. (Y)


O truque da filosofia é começar por algo tão simples que ninguém ache digno de nota e terminar por algo tão complexo que ninguém entenda.

16659376348_0bf967577c_s.jpg

0

Compartilhar este post


Link para o post
Compartilhar em outros sites
Boa tarde!

Faça o seguinte > ALT F11>no lado esquerdo em PROPRIEDADES USEFORM> vá até o item StartUpPositon> selecione>1-CenterOwner. em seguida aperte F5 para ver como esta ficando. (Y)

Caro amigo,

ainda permanece a mesma coisa.!

Mas, Obrigado pela atenção...

vou continuar procurando, se eu encontrar algo posto aqui..

se alguém também souber poste por favor.!

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

mais uma para teste

Private Sub UserForm_Initialize()

Dim lngWinState As XlWindowState

With Application

.ScreenUpdating = False

lngWinState = .WindowState

.WindowState = xlMaximized

Me.Move 0, 0, .Width, .Height

.WindowState = lngWinState

.ScreenUpdating = True

End With

End Sub


"O saber é um eterno aprendizado" <-- // --> "O conhecimento quando é dividido, faz várias somas"

O saber a gente aprende com os mestres e os livros. A sabedoria, se aprende é com a vida e com os humildes."Cora Coralina"

MEU SITE -- MEU BLOG

0

Compartilhar este post


Link para o post
Compartilhar em outros sites
mais uma para teste

Private Sub UserForm_Initialize()

Dim lngWinState As XlWindowState

With Application

.ScreenUpdating = False

lngWinState = .WindowState

.WindowState = xlMaximized

Me.Move 0, 0, .Width, .Height

.WindowState = lngWinState

.ScreenUpdating = True

End With

End Sub

Ainda Não Deu... =/

0

Compartilhar este post


Link para o post
Compartilhar em outros sites
    • 1 Mensagens
    • 55 Visualizações
    • 5 Mensagens
    • 135 Visualizações
    • 13 Mensagens
    • 316 Visualizações
    • 5 Mensagens
    • 507 Visualizações
    • 12 Mensagens
    • 497 Visualizações