获得单一形状的选择

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（数组（＆＃34; gggg＆＃34;，＆＃34; yyy＆ ＃34））（1）

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