Excel Tela cheia em Userform (e Image)

Neri Schuck · 4 de setembro de 2018

Coloquei um Userform para ser tela cheia pelo comando:

'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

este transforma o form e fica show.

Acontece que no meu form inseri uma Image para colocar um gráfico. Este não expande proporcional. será que alguém possui um código que faça isto?

5 de setembro de 2018

pesquisa Google ~~~> vba dimensionar imagem conforme tamanho do userform

retornou mais de 92 mil resultados, entre eles os dois abaixo, veja se aproveita

https://social.msdn.microsoft.com/Forums/pt-BR/8cf45038-8977-4280-809c-ce821cfda88d/como-redimensionar-uma-imagem-em-um-formulrio-vba?forum=vbapt

https://forum.imasters.com.br/topic/366706-redimensionar-imagem-de-plano-de-fundo-do-form/

Neri Schuck · 5 de setembro de 2018

Amigo Osvaldo

Não consegui ajustar... vou refazer os testes mais tarde...

Obrigado

5 de setembro de 2018

Olá, Neri.

Se não conseguir o ajuste, sugiro que você disponibilize uma amostra do seu arquivo Excel com o Form e com os códigos instalados e indique qual o resultado desejado (se possível com um print). Para anexar o arquivo clique em "escolha os arquivos" localizado abaixo da caixa de resposta.

Neri Schuck · 5 de setembro de 2018

vou anexar...veja as setas; queria (se possivel) o gráfico fosse expandido também....

teste.rar

7 de setembro de 2018

Experimente:

1. no código Private Sub UserForm_INITIALIZE() acrescente as linhas em vermelho conforme abaixo.

...
End With
With Me.Controls("Image1")
.Width = 1120
.Height = 520
End With
'fim

End Sub

2. no editor de VBA selecione o controle Image1 no UserForm / clique com o direito sobre ele e escolha Propriedades / altere a propriedade PictureSizeMode para 1 - fmPictureSizeModeStretch (veja imagem abaixo)

Faça os testes.

obs. com os valores que coloquei no código acima para as propriedades Width = 1120 e Height = 520, o controle Image1 fica com dimensões adequadas para um monitor de 22 polegadas. Se necessário altere os valores para adequar ao tamanho do seu monitor.