vba - 将宏分配给 Excel 中的文本

Question

我有一个垂直框列表



，并且每个项目都添加了不同的超链接

我已经看到通过“Followhyperlink”将宏分配给超链接并在那里调用宏的方法，但在我的情况下，它是多个超链接和多个宏，不确定是否可以这样做。

现在，我需要为每个超链接添加不同的宏，可以吗？

Answer 1

由于您无法通过右键单击宏并单击“分配宏”来将宏分配给 SmartArt，因此您可以在每个宏上放置一个形状并对其进行格式化，使其没有一条线或颜色。完成此操作后，您将可以使用“ 分配宏”。请参阅此屏幕截图。此外，不要将文本添加到 SmartArt，而是将文本添加到已放置在 SmartArt 顶部的每个形状。



然后这个...



在那个宏中，您可以使用 Application.Caller然后检索该形状的文本。然后，您可以根据文本执行特定任务。例如

Sub Button1_Click()
    Dim shp As Shape

    Set shp = Sheet1.Shapes(Application.Caller)

    Select Case shp.TextFrame2.TextRange.Text
        Case "Data Add on Y/N"
            '~~> Do Something
        Case "Product Data Last"
            '~~> Do Something

        '
        '~~> And So on
        '
    End Select
End Sub