高亮显示

要用VBA实现。按Alt+F11，双击一个工作表名称，将下面代码粘贴到右边框中，那么这个工作表就能实现你的要求。

选中一个工作表，右击，查看代码，添加即可。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim r, c

r = Target.Row

c = Target.Column

    Cells.Interior.ColorIndex = xlNone

Rows(r).Interior.ColorIndex = 35

Columns(c).Interior.ColorIndex = 35

End Sub

Private Sub Chart_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)

    MsgBox "X = " & X & " Y = " & Y

End Sub

Private Sub Chart_MouseDown(ByVal Button As Long, _
        ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
    MsgBox "Button = " & Button & chr$(13) & _
        "Shift = " & Shift & chr$(13) & _
        "X = " & X & " Y = " & Y

End Sub

高亮显示形状

鼠标移动到label2 label2即显示红色。

Option Explicit

Private Sub Label1_Click()

End Sub

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

  Label2.BackColor = vbWhite

End Sub

Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

  Label2.BackColor = vbRed

End Sub