2017-10-17 9 views

答えて

1

を使用してShape.ScaleHeight、Shape.ScaleWidth方法

Sub ChangeShapeSize() 
Dim Ht As Single, Wd As Single 

    Ht = 1.75 
    Wd = 2.75 

    With Worksheets(1).Shapes("CheckBox1") 
     .ScaleHeight Ht, msoFalse, msoScaleFromTopLeft 
     .ScaleWidth Wd, msoFalse, msoScaleFromTopLeft 
    End With 

End Sub 
+0

は、あなたは私のチェックボックスの例をお願いできますか? – Xtreme

+0

オリジナルの投稿にサンプルを追加しましたが、これがうまくいく場合は、回答としてマークしてください。ありがとう – GSD

関連する問題