使用 VBA 在 Excel 中选择形状

Question

我正在尝试使用 VBA 按名称选择形状。在我的工作表中，我有 10 个形状，名称分别为 1 到 10，并且想要一个特定的形状。由于某种原因，excel 使用我的代码选择的形状似乎不是我告诉它选择的名称的形状。据我所知，它选择的形状是随机的。这是我的代码（x 值应该检索我输入的从 1 到 10 的数字值）：

Sub FindTheShape()

Sheets("Fleet 1").Select
Dim x As Long
x = ActiveSheet.Range("$A$1000").End(xlUp).Value

ActiveSheet.Shapes(x).Select

End Sub

请帮忙，任何想法都将不胜感激。

Answer 1

当你的形状被命名为 1 到 10 时，你的 x 给出索引号而不是名称，从你的 x 中创建一个字符串：

ActiveSheet.Shapes(CStr(x)).Select