#

Jump to content

  • Login via Facebook Login com Twitter
  • Cadastre-se no Fórum do BABOO!





 

Foto

UserForm em Tela Cheia Centralizado


Minimizar/MaximizarImagens para Papel de Parede

  • Futebol - 37
  • Espaço - 02
  • Paisagem - 21
  • Árvores - 07
  • Paisagem - 53
  • Paisagens e animais - 25
  • Avião - 04
  • Ferrari - 25
  • Floresta - 11
  • Fogo - 36

  • Faça login para responder
Existem 6 respostas neste tópico

#1
Link desta mensagem
jj100

jj100
  • Participante
  • 42 mensagens

Publicado 14/jul/10 01:37 h

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

Publicidade
Publicidade

#2
Link desta mensagem
Marcelo Kai

Marcelo Kai
  • Participante
  • 601 mensagens

Publicado 14/jul/10 01:53 h

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


#3
Link desta mensagem
jj100

jj100
  • Participante
  • 42 mensagens

Publicado 14/jul/10 02:17 h

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
Link desta mensagem
Marcelo Kai

Marcelo Kai
  • Participante
  • 601 mensagens

Publicado 14/jul/10 03:09 h

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


#5
Link desta mensagem
jj100

jj100
  • Participante
  • 42 mensagens

Publicado 14/jul/10 03:24 h

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
Link desta mensagem
RATHATHA

RATHATHA
  • Participante
  • 2.153 mensagens

Publicado 14/jul/10 05:07 h

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
Link desta mensagem
jj100

jj100
  • Participante
  • 42 mensagens

Publicado 14/jul/10 05:26 h

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


  Publicidade  
Publicidade