Pop-Up Comments for Graphics

My most recent comment was originally "suspected as spam" but subsequently unblocked by Allen. Unfortunately, that process ignores all paragraph endings and combines everything into a single paragraph. A new paragraph should start wherever you see 4 consecutive space characters.

If you prefer the Tip's macro-based solution MyMacro, consider one of the following procedures included in My Excel Toolbox:    Popup "This is my comment", vbSystemModal, , TimeOutPopup's first 3 arguments and its returned result are similar to MsgBox. It runs in a separate process using VBScript; therefore, vbSystemModal (4096) is recommended to keep it on top. If optional TimeOut is zero (default), then Popup must be dismissed by the user (like MsgBox); otherwise, it will disappear after TimeOut seconds.     Notify "This is my comment", , , TimeOutNotify runs in a separate process using VBScript to display a Notification BalloonTip above the Windows System Tray and in its Action Center. As with Popup, if optional TimeOut is zero (default), the message must be dismissed by the user.    MsgBoxCustom "This is my comment", , , , , Range("E10")MsgBoxCustom displays a standard MsgBox with custom position and/or button labels. Its first 5 arguments and returned result are the same as MsgBox. The optional 6th argument (position) can be a worksheet's cell or absolute screen coordinates.     MsgBoxModeless "This is my comment", , , , "NextMacro", , Range("E10")MsgBoxModeless displays a persistent modeless MsgBox as a UserForm with a single button. All argument's are optional except the first. The button's label (2nd argument) and font (4th argument) can be customized. The 5th argument specifies a macro to run after the button is clicked. The 6th argument is a ToolTip for the button. As with MsgBoxCustom, the last argument (position) can be a worksheet's cell or absolute screen coordinates. See https://sites.google.com/view/MyExcelToolbox/

Re. my previous comment (in case you noticed), TextBox1 has False AutoSize and True SelectionMargin in Figure 1 but True AutoSize and False SelectionMargin in Figure 2. The latter is recommended.

Here's one way to add a popup message when the mouse is over an arbitrary shape in a worksheet (but not a chart sheet). In this example (see Figure 1 below) the shape is a blue oval.
1. Surround the shape with two concentric ActiveX Label controls Label1 (smaller) and Label2 with transparent BackStyle, null BorderStyle, and null Caption.
2. Add ActiveX TextBox control TextBox1 with ToolTip BackColor, opaque BackStyle, single BorderStyle, True AutoSize, True MultiLine, True WordWrap, False SelectionMargin, and appropriate Text.
3. The z-order of these shapes must be Label1 (front), then Label2, then TextBox1, then blue oval (back).
4. Add the following event procedures to the Sheet document module applicable to the worksheet containing these controls:

Private Sub Label1_MouseMove(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    TextBox1.Visible = True
End Sub

Private Sub Label2_MouseMove(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    TextBox1.Visible = False
End Sub

Private Sub Worksheet_Deactivate()
    TextBox1.Visible = False
End Sub

5. If desired, add the following event procedure to the ThisWorkbook document module, but replace Sheet1 with the Sheet containing TextBox1:

Private Sub Workbook_Activate()
    Sheet1.TextBox1.Visible = False
End Sub

Now the popup message will appear (see Figure 2 below) and disappear when the mouse passes over the blue oval shape.