6 respostas neste tópico

[jj100]

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??

[marcelokai]

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!!

[jj100]

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 ..

Attached Thumbnails

• 
• 

[marcelokai]

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.

[jj100]

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.

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.!

[RATHATHA]

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

[jj100]

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... =/