Excel Vba代碼獲取指定區(qū)域內(nèi)的所有shape對(duì)象

在Excel里，希望選取某個(gè)工作表中指定區(qū)域的所有形狀對(duì)象

運(yùn)行代碼，選中A1:D10 區(qū)域中的所有shape對(duì)象

Sub main()
    Dim Sh1(1 To 100) As String  '定義數(shù)組，用于存放shape名
    Dim sh As Shape
    Dim i As Integer
    With ActiveSheet
        For Each sh In .Shapes '遍歷所有的Shape對(duì)象
            If Not Application.Intersect(sh.TopLeftCell, .Range("A1:D10")) Is Nothing Then '   判斷Shape對(duì)象是否在指定的A1:D10區(qū)域中
                i = i + 1  '統(tǒng)計(jì)總共有多少個(gè)形狀
                Sh1(i) = sh.Name   '將Shape名保存在數(shù)組
            End If
        Next sh
    End With
    ActiveSheet.Shapes.Range(Sh1).Select '選中Sh1中存放的Shape
End Sub