按顺序识别选择中的形状

Question

我们说我已经使用鼠标在Excel标签中选择了两个或更多形状。

是否有VBA命令来确定选择它们的序列中的形状名称？

Selection.count 仅返回选择中的形状数。

在形状选择过程中记录宏

ActiveSheet.Shapes.Range(Array("Shape_A")).Select
ActiveSheet.Shapes.Range(Array("Shape_A", "Shape_B")).Select

我需要的是反过来，其中我从选择中提取名称以便在VBA宏中使用。

由于

Answer 1

您可以使用.ShapeRange：

进行迭代

ActiveSheet.Shapes.Range(Array("Shape_A")).Select
ActiveSheet.Shapes.Range(Array("Shape_A", "Shape_B")).Select

For Each myshape In Selection.ShapeRange
    Debug.Print myshape.Name
Next myshape