感谢大神指导,方法
1、点击sheet,查看代码
2、在代码中输入如下内容(长和宽可以设定)
Sub ErgShapes_1()
Dim myShape As Shape
For Each myShape InSheet1.Shapes
myShape.Width = 10
myShape.Height = 10
Next
End Sub
3、运行 OK
感谢大神指导,方法
1、点击sheet,查看代码
2、在代码中输入如下内容(长和宽可以设定)
Sub ErgShapes_1()
Dim myShape As Shape
For Each myShape InSheet1.Shapes
myShape.Width = 10
myShape.Height = 10
Next
End Sub
3、运行 OK