엑셀에서 마우스 올려 놓을때만 사진 보이는 매크로

[동광산업]

Sub Macro1()
pic = Application.GetOpenFilename(filefilter:="JPG 그림파일(*.JPG),*.jpg", Title:="파일을 선택하세요", MultiSelect:=False)
If TypeName(pic) = "Boolean" Then Exit Sub
Set cmt = ActiveCell.AddComment
cmt.Shape.Fill.UserPicture pic

cmt.Shape.Width = 300
cmt.Shape.Height = 200
End Sub

네이버 지식인에서 찾았다.