获得单一形状的选择

Question

我目前想知道是否有办法获得选择的单个对象（形状）。

我有以下选择：

ActiveSheet.Shapes.Range(Array("feed", "000-100-SRC", "product")).Select

如何获取第一个项目的名称？

Answer 1

也许是这样的

Sub Tester()

Dim v As Variant

    For Each v In ActiveSheet.Shapes.Range(Array("feed", "000-100-SRC", "product"))
        Debug.Print v.Name
    Next

End Sub

或者那样

Sub Tester()

Dim vArr As Variant

    vArr = Array("feed", "000-100-SRC", "product")
    Debug.Print vArr(0)


End Sub

Answer 2

基本上你的范围集称为shaperange。

您可以在任何集合中获取其项目，例如：MyShaperange（1），其中myshaperange是变量，或者您将其替换为activesheet.shapes（array（“gggg”，“yyy”））（1）

如果已经选择，您还可以：selection.shaperange（1），但通常在编码时不建议选择范围或形状。