2017-10-17 1 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

관련 문제