共用方式為


InsideHeight、InsideWidth 屬性範例

下列範例會使用 InsideHeight 和 InsideWidth 屬性來調整 CommandButton的大小。 使用者按一下 CommandButton 來調整其大小。

注意事項

InsideHeightInsideWidth 是唯讀屬性。

若要使用本範例,請將此範例程式碼複製到表單的宣告部分中。 請確定表單包含:

  • 一個名為 CommandButton1 的 CommandButton
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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應