如何在 Excel 中為特定形狀添加滑鼠懸停提示？

在許多情況下，您需要將宏分配給某個形狀，以便在工作表中點擊該形狀時運行宏。在將宏分配給形狀後，添加滑鼠懸停提示可以幫助您在未來使用時提醒自己該形狀的作用。本文向您展示了兩種在 Excel 中為特定形狀添加滑鼠懸停提示的方法。

通過添加超鏈接為特定形狀添加滑鼠懸停提示
使用 VBA 程式碼為特定形狀添加滑鼠懸停提示

通過添加超鏈接為特定形狀添加滑鼠懸停提示

您可以為工作表中的某個形狀添加帶有螢幕提示的超鏈接。請按照以下步驟操作：

1. 右鍵單擊需要添加滑鼠懸停提示的形狀，然後從右鍵菜單中選擇「創建超鏈接」。參見截圖：

2. 在 「創建超鏈接」對話框中，單擊「螢幕提示」按鈕。在「設置超鏈接螢幕提示」對話框中，輸入當滑鼠懸停在形狀上時需要顯示的螢幕提示文字。最後單擊「確定」按鈕。參見截圖：

3. 返回到「創建超鏈接」對話框後，單擊「書籤」按鈕。然後在「選擇文檔中的位置」對話框的單元格引用框中輸入 A1，最後單擊「確定」按鈕。

4. 在「創建超鏈接」對話框中單擊「確定」按鈕以完成超鏈接的創建。

現在，當您將滑鼠懸停在形狀上時，可以看到螢幕提示顯示出來。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

使用 VBA 程式碼為特定形狀添加滑鼠懸停提示

執行以下 VBA 程式碼後，您可以輕鬆地為特定形狀添加滑鼠懸停提示。

1. 打開包含要顯示滑鼠懸停提示的形狀的工作表。右鍵單擊工作表標籤，然後從上下文菜單中選擇「檢視程式碼」。

2. 在「Microsoft Visual Basic for Applications」窗口中，請將以下 VBA 程式碼複製到程式碼窗口中。

VBA 程式碼 1：為特定形狀添加滑鼠懸停提示

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 2018/3/30
    If Target.Address = Range("A1").Address Then
        Call MoveRow
    End If
End Sub

3. 單擊「插入」>「模組」。然後將以下 VBA 程式碼輸入到模組窗口中。

VBA 程式碼 2：為特定形狀添加滑鼠懸停提示

Sub Text()
'Updated by Extendoffice 2018/3/30
    Dim xShape As Shape
    Dim xRg As Range
    On Error Resume Next
    Application.EnableEvents = False
    Set xShape = ActiveSheet.Shapes("Rectangle 4")
    If Not xShape Is Nothing Then
        ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Click to run Macro "
    End If
    If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Then
        Call MoveRow
    End If
    Application.EnableEvents = True
End Sub

注意：

3. 按 F5 鍵運行程式碼。然後立即為特定形狀添加指定的螢幕提示。

相關文章：

• 如何根據/依賴指定的單元格值自動改變形狀大小？
• 如何在 Excel 中用透明背景色填充形狀？
• 如何根據指定的單元格值隱藏或取消隱藏特定形狀？