Conteúdo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Fundo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Desenho: Liso Onda Linha Retalho Madeira Rocha Couro Colméia Vertical Triângulo
Bem-vindo ao Fórum do BABOO!

Desde 2000 o Fórum do BABOO tem ajudado milhões de internautas de Windows a resolverem seus problemas e dúvidas, além de ajudar na remoção de vírus e malwares de seus computadores. Somos o único fórum brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows, então se você tem uma dúvida ou problema que nenhum outro fórum resolve, poste-a aqui pois o MVP Babooadora desafios!
  

O Fórum do BABOO também conta com a participação exclusiva do administrador da área de Segurança MVP Mr.Million que tem reconhecimento internacional da Microsoft pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Se o seu computador está infectado por algum vírus, ele te ajudará a removê-lo!
  

Nosso time de especialistas também inclui Patropi  Osvaldomp  Caze  Ciro-Mota  XERLOUCO ROUMS  Tatha que responderão suas dúvidas sobre diversos assuntos.
 

Participe da nossa comunidade! 

Entre para seguir isso  
Seguidores 0
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??

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

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

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

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

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

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Responda via Facebook

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Quer postar a sua dúvida? Cadastre-se pois é rápido e fácil!


Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.


Entrar Agora
Esse tópico é útil para você?
Então compartilhe e ajude outros internautas!
Entre para seguir isso  
Seguidores 0

O site BABOO está no ar para informar e ajudar o internauta de Windows. Este site foi publicado em 1999 por Aurélio "Baboo", engenheiro e um dos maiores especialistas brasileiros em Windows, que trabalha profissionalmente com esse sistema operacional desde 1987. Desde 2004 ele é premiado anualmente pela Microsoft como MVP (Most Valuable Professional) pela sua contribuição e ajuda à comunidade de usuários de Windows.

Em 2001 foi criado o
Fórum do BABOO para ajudar o internauta brasileiro a solucionar problemas e dúvidas sobre Windows, Segurança, Office, Hardware e outros temas. Desde 2010 a Microsoft também tem premiado o Mr.Million, administrador da área de Segurança do Fórum do BABOO, pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Atualmente ele é o único MVP brasileiro de Segurança em desktop.

O BABOO é o único site brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows e que participa diariamente e ativamente nos comentários e discussões do site e fórum BABOO.