Notifications

Clear all

Userform Image Tela Cheia

Formulários

Post Recente por NERI S 6 anos atrás

9 Posts

2 Usuários

0 Reactions

2,173 Visualizações

RSS

NERI S

(@neri-s)

Posts: 0

Estimable Member

Topic starter

Tenho vários gráficos em userform e utilizo a tela cheia, pelo comando no Initialize:

'Maximizar na tela
Dim lngWinState As XlWindowState
With Application
.ScreenUpdating = False
lngWinState = .WindowState
.WindowState = xlMaximized
Me.Move 0, 0, .Width, .Height
.WindowState = lngWinState
.ScreenUpdating = True
End With
'fim

Como os gráficos estão em na propriedade Image, o formulário abre em tela cheia, mas o gráfico expande proporcionalmente. Se não me falha a memória, já tinha visto um comando que fazia isto, mas não consigo encontrar. Alguém utiliza desta forma? Pode me passar o comando?

Postado : 03/09/2018 6:36 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

NERI S,

Bom dia!

Não sei se é isso... já utilizou a propriedade AutoSize em True da objeto Image?

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 04/09/2018 5:41 am

NERI S

(@neri-s)

Posts: 0

Estimable Member

Topic starter

Amigo, este comando não resolveu....vamos procurando, uma hora destas eu acho.

Postado : 04/09/2018 2:21 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

NERI S,

Bom dia!

Anexe seu arquivo e explique melhor, por gentileza.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 05/09/2018 4:28 am

NERI S

(@neri-s)

Posts: 0

Estimable Member

Topic starter

Coloquei em anexo o arquivo.
Se olhar o projeto dele e comparar com o gráfico, o tamanho é adequado. Porém ao abrir o formulário, com o comando que coloquei, utiliza a tela cheia. Estou a procura de um comando para que o gráfico (que fica no Image) também seja expandido, juntamente com o userform.

Ao ver o anexo será mais fácil entender.

Postado : 06/09/2018 10:45 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

NERI S,

Não sei entendi corretamente agora...

Veja se é assim.

Arquivos.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 10/09/2018 11:38 am

NERI S

(@neri-s)

Posts: 0

Estimable Member

Topic starter

Amigo Wagner, em partes é isto que eu preciso. Só tem um detalhe: a diferença do tamanho das telas, ou seja, no note o tamanho é um, mas quando olhar num monitor maior ou menor, é diferente (nem precisava dizer isto kkkk).
Mas voltando, eu quero "mostrar o gráfico" expandido também, mas tenho que capturar o tamanho da tela antes.

Postado : 11/09/2018 3:45 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

NERI S,

Boa tarde!

Isso aí já é um problema de resolução de vídeo. Você precisa adaptar a resolução de vídeo,de acordo com cada vídeo onde o seu arquivo for exibido.

Veja se o arquivo abaixo pode ajudar.

Alterar Resolução do Monitor e Voltar no final com a mesma.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 11/09/2018 8:54 am