Excelで特定の形状にマウスオーバーチップを追加するにはどうすればよいですか？

多くの場合、ワークシートでマクロをクリックして実行するには、マクロを特定の形状に割り当てる必要があります。 図形にマクロを割り当てた後、マウスオーバーチップを追加すると、将来の使用で図形が何をするかを思い出させるのに役立ちます。 この記事では、Excelで特定の形状にマウスオーバーチップを追加するXNUMXつの方法を示します。

ハイパーリンクを追加して、マウスオーバーチップを特定の形状に追加します
VBAコードを使用して特定の形状にマウスオーバーチップを追加します

ハイパーリンクを追加して、マウスオーバーチップを特定の形状に追加します

ScreenTipを使用して、ワークシートの特定の形状にハイパーリンクを追加できます。 次のようにしてください。

1.チップの上にマウスを追加するために必要な形状を右クリックし、クリックします ハイパーリンク 右クリックメニューから。 スクリーンショットを参照してください：

2。 の中に ハイパーリンクを挿入 ダイアログボックスで スクリーンヒント ボタン。 そして、 ハイパーリンクScreenTipを設定する ダイアログボックスで、マウスで図形にカーソルを合わせて表示する必要のある画面のヒントテキストを入力します。 最後にクリックします OK ボタン。 スクリーンショットを参照してください：

3.に戻ったとき ハイパーリンクを挿入 ダイアログボックスで ブックマーク ボタン。 次に、のセル参照ボックスのタイプにA1を入力します。 [ドキュメントに配置]を選択します ダイアログボックスをクリックし、最後に OK

4。 クリック OK ボタンの ハイパーリンクを挿入 ハイパーリンクの作成を終了するダイアログボックス。

これで、マウスで図形にカーソルを合わせると、画面のヒントが表示されます。

VBAコードを使用して特定の形状にマウスオーバーチップを追加します

次のVBAコードを実行すると、マウスオーバーチップを特定の形状に簡単に追加できます。

1.ワークシートを開くと、マウスを上に移動したときにヒントが表示される形状が含まれています。 シートタブを右クリックし、コンテキストメニューから[コードの表示]をクリックします。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウの場合は、以下の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で指定されたセル値に基づいて/依存して形状サイズを自動変更するにはどうすればよいですか？
• Excelで図形を透明な背景色で塗りつぶす方法は？
• Excelで指定されたセル値に基づいて特定の形状を非表示または再表示するにはどうすればよいですか？