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