excel 里,使用VBA实现 图形符合条件就填充不符合条件就不填充 能把有这个编程的exle发个给我吗

邮箱waveguo@163.com
将不胜感激

1.插入image1控件
2.Alt+F11,将程序粘贴到本工作表模块中
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strX As String
strX = "F:\图库\" & Selection.Value & ".jpg"
If Dir(strX) = "" Then
Image1.Picture = LoadPicture
Exit Sub
Else
Image1.Picture = LoadPicture(strX)
End If
End Sub
3.在工作表中输入图片名称，当点击该单元格时，在图形区就显示该图片
假设图片保存在F:\图库

1