Jump to content

Foto

UserForm em Tela Cheia Centralizado



Existem 6 respostas neste tópico

#1 jj100    

jj100
  • Participante
  • 42 mensagens

Publicado 14 July 2010 - 01:37 PM

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


#2 marcelokai    

marcelokai
  • Participante
  • 488 mensagens

Publicado 14 July 2010 - 01:53 PM

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.
https://www.facebook...o.goncalves.756

#3 jj100    

jj100
  • Participante
  • 42 mensagens

Publicado 14 July 2010 - 02:17 PM

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

Miniaturas Anexadas

  • user.JPG
  • userform.jpg.jpg


#4 marcelokai    

marcelokai
  • Participante
  • 488 mensagens

Publicado 14 July 2010 - 03:09 PM

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.
https://www.facebook...o.goncalves.756

#5 jj100    

jj100
  • Participante
  • 42 mensagens

Publicado 14 July 2010 - 03:24 PM

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

#6 RATHATHA    

RATHATHA
  • Participante
  • 2153 mensagens

Publicado 14 July 2010 - 05:07 PM

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

#7 jj100    

jj100
  • Participante
  • 42 mensagens

Publicado 14 July 2010 - 05:26 PM

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