VBA设置对象格式没有控件属性
设置对象格式中找不到控件,是什么问题呀,各位大神
代码及注释如下: Sub main() Dim Sh1(1 To 100) As String‘定义数组,用于存放shape名 Dim sh As Shape Dim i As Integer With Worksheets("Sheet6") For Each sh In .Shapes'遍历所有的Shape对象 If Not ***.intersect(***.topleftcell, .Range("A1:J20")) Is Nothing Then'Shape对象如何不在A1:J20区域中 i = i + 1'累加数量 Sh1(i) = ***.Name'将Shape名依次存放在数组Sh1中 End If Next sh End With activesheet.***.range(Sh1).Select,选中Sh1中存放的Shape End Sub 追答:选中你要进行操作吗?说一下,下一步做什么呢! 追答:可以一个个移啥,都移相同的距离,如果一定要全部选中,吃个饭回来写。
热门标签: