向形状添加屏幕提示

Question

我有一个形状，我用它作为按钮，单击时显示一个消息框。

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

宏代码的示例：

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用于记住在跟随超链接之前选择了哪个单元格。 然后，它在代码执行后重新选择该单元格。

不完美，可能有更好的方法，但它有效。 :)