InsideHeight 和 InsideWidth 属性示例

下例用 InsideHeight 和 InsideWidth 属性来调整命令按钮的大小。用户可单击命令按钮来调整其大小。

注意 InsideHeight 和 InsideWidth 为只读属性。

窗体包含：

• 名为 CommandButton1 的命令按钮。

Dim Resize

Sub UserForm_Initialize()
    Resize = 0.75
    UserForm_CommandButton1.Caption = "Resize Button"
    
End Sub

Sub UserForm_CommandButton1_Click()
    UserForm_CommandButton1.Move 10, 10, UserForm.InsideWidth * Resize, UserForm.InsideHeight * Resize
    UserForm_CommandButton1.Caption = "Button resized using InsideHeight and InsideWidth!"
End Sub