Question

我有一个形状，可以用作单击时显示msgbox的按钮。

我已使用超链接在形状中添加了屏幕提示，但是单击超链接会阻止执行分配的宏代码。

宏代码示例：

Sub TestMacro()

    MsgBox "Hi, World!"

End Sub

是否可以在不影响代码的情况下在我的形状中添加屏幕提示？

Answer 1

您的屏幕提示与一个超链接相关，该超链接将导致一个单元格被选中。

您可以查看此选择并在发生这种情况时运行宏：

Option Explicit

Dim rLastSelection As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        TestMacro  'Call your macro here.
        Application.EnableEvents = False
        rLastSelection.Select
        Application.EnableEvents = True
    Else
        Set rLastSelection = Target
    End If
End Sub

rLastSelection用于记住在跟随超链接之前选择了哪个单元格。然后，在代码执行后，它会重新选择该单元格。

并不完美，也许有更好的方法，但是它可行。：）

将屏幕提示添加到形状

1 个答案: