VBA设置对象格式没有控件属性

更新时间2022-05-13 17:38:53

设置对象格式中找不到控件，是什么问题呀，各位大神

 代码及注释如下: 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 追答：选中你要进行操作吗？说一下，下一步做什么呢！ 追答：可以一个个移啥，都移相同的距离，如果一定要全部选中，吃个饭回来写。