使用ActiveX控件更改Excelcheckbox中框的大小？

我在Excel中有这个ActiveXcheckbox，我想改变框的大小。

我知道我可以做到这一点，如果我locking到一个单元格，并更改单元格大小。 有另一种方法吗？

Answer 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