获得单一形状的选择

【问题标题】：get single shape of selection获得单一形状的选择
【发布时间】：2017-12-27 09:59:53
【问题描述】：

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

我有以下选择：

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

如何获得第一项的名称？

【问题讨论】：

标签： excel selection shapes vba

【解决方案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

【讨论】：

谢谢你这样做了，但有：dim v as shape --> 很糟糕，提前谢谢你

【解决方案2】：

基本上，您的范围集称为 shaperange。

您可以像在任何集合中一样获取它的项目： MyShaperange(1) ，其中 myshaperange 是一个变量，或者您将其替换为 activesheet.shapes(array("gggg","yyy"))(1)

如果已经选择，也可以： selection.shaperange(1) ，但通常编码时不建议选择范围或形状。

【讨论】：