Private Sub Image1_Click()
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n$
On Error Resume Next
n = "图片地址\" & Cells(Target.Row, 1).Value & ".jpg"
Image1.Picture = LoadPicture(n)
Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.PictureAlignment = fmPictureAlignmentCenter
End Sub