Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 2 Then Exit Sub
    Set rng = Range("A3:A9")    '設定範圍
    If Union(rng, Target).Address = rng.Address Then
    '保留前一個 Target 儲存格
        Static chkrange As Range
        '刪除前一個註解
        If Not chkrange Is Nothing Then
            chkrange.Comment.Delete
        End If
        Dim cmt As Comment
        Dim jpgImg As Object
        Application.EnableEvents = False
        Set chkrange = Target
        Set hasComment = Target.Comment
        '判斷儲存格是否有註解
        If hasComment Is Nothing Then
            Set cmt = Target.AddComment
        Else
            Set cmt = Target.Comment
        End If
        '圖片填滿註解
        fname = ThisWorkbook.Path & "\" & Target
        '取得圖片的 高度及寬度
        Set jpgImg = CreateObject("WIA.ImageFile")
        jpgImg.LoadFile fname
        cmt.Shape.Fill.UserPicture fname
        cmt.Shape.Height = jpgImg.Height
        cmt.Shape.Width = jpgImg.Width
        '顯示註解
        Application.DisplayCommentIndicator = xlCommentIndicatorOnly
        Application.EnableEvents = True
    End If
End Sub