在Excel中将宏指定给文本

时间:2014-08-20 11:56:27

标签: excel vba excel-vba hyperlink

我有一个垂直方框列表

enter image description here

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

我已经看到了通过“Followhyperlink”将宏指定给超链接并在那里调用宏的方法,但在我的情况下,它是多个超链接和多个宏,不确定是否可以完成。

现在,我需要为每个超链接添加不同的宏,是否可能?

1 个答案:

答案 0 :(得分:4)

由于您无法通过右键单击它们并单击“分配宏”将宏指定给SmartArt,您可以做的是在每个宏上放置一个形状并对其进行格式化以便没有线条或颜色。完成后,您可以分配“分配宏”。看这个截图。此外,不是向SmartArt添加文本,而是将文本添加到已放置在SmartArt顶部的每个Shape上。

enter image description here

然后这......

enter image description here

在该宏中,您可以使用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