【发布时间】:2018-03-29 05:01:36
【问题描述】:
【问题讨论】:
标签: excel checkbox activex vba
【问题讨论】:
标签: excel checkbox activex vba
使用 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
【讨论】: