VBA在组合框中获取选定的形状名称

Question

我是 VBA 新手。我的工作表中的形状很少。 I want to get the name of shape to appear in combobox and character name in another Combobox, when any particular shape is selected.所以我可以重命名该形状并链接到特定的 excel 列。

我已尝试关注。

With Selection
    ActiveSheet.ComboBox1.Value = ActiveSheet.Shapes(Application.Caller).Name
End with

不确定在哪里分配上述代码。

我尝试将上述代码分配给以 .onaction 作为宏的形状，它可以工作，但无法进一步编辑宏分配的形状（出于设计目的）。

如果我可以删除选定的形状，那就太好了。

提前谢谢你。

Answer 1

您可以将代码用于任何形状，并且您可以随时更改代码，但是分配一个宏，单击时将不会选择形状...它成为一种控件。

强制选择的情况除外：

Debug.Print ActiveSheet.Shapes(Application.Caller).Name
shW.ComboBox1.value.Shapes(Application.Caller).Select

您可以从右键单击上下文（在图表底部）更改代码并选择“分配宏... -> 编辑”。

您可以使用下面的代码找到选定的形状：

Sub testSelectedShape()
   Dim shW As Worksheet, sh As Object, selSh As Object
   Set shW = ActiveSheet
   If TypeName(Selection) <> "Range" Then
      Set selSh = Selection
      Set sh = shW.Shapes(selSh.Name)
      Debug.Print selSh.Name
      shW.ComboBox1.value = selSh.Name
  End If
End Sub

您可以使用 sh.Delete 简单地删除它...