Exemplo das propriedades InsideHeight, InsideWidth
O exemplo a seguir usa as propriedades InsideHeight e InsideWidth para redimensionar um CommandButton. O usuário clica no CommandButton para redimensioná-lo.
Observação
InsideHeight e InsideWidth são propriedades somente leitura.
Para usar este exemplo, copie esta amostra de código para a parte Declarações de um formulário. Verifique se o formulário contém:
- Um CommandButton denominado CommandButton1.
Dim Resize As Single
Private Sub UserForm_Initialize()
Resize = 0.75
CommandButton1.Caption = "Resize Button"
End Sub
Private Sub CommandButton1_Click()
CommandButton1.Move 10, 10, _
UserForm1.InsideWidth * Resize, _
UserForm1.InsideHeight * Resize
CommandButton1.Caption = "Button resized " _
& "using InsideHeight and InsideWidth!"
End Sub
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de