excel高手请进：如何动态显示外部图片

设图片所在目录为e:\ex\，图片扩展名为jpg.
在你需要操作的表名上按鼠标右键选查看代码，将下列代码填入。然后在A1修改文件名试试。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next
Shapes.SelectAll
Selection.ShapeRange.Delete
Range("A2").Select
Range("A2").RowHeight = 60 '定义A2的行高，磅数。
Range("A2").ColumnWidth = 12 '定义A2的列宽，标准字符数。
Shapes.AddShape(msoShapeRectangle, 0, 24, 72, 60).Select '定义图片框的左上角位置和宽度、高度。
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Shadow.Obscured = msoTrue
Selection.ShapeRange.Shadow.Type = msoShadow18
Selection.ShapeRange.Fill.UserPicture "e:\ex\" & Range("A1").Value & ".jpg"
Range("A1").Select
Application.EnableEvents = True
End Sub

http://hi.baidu.com/shuhua0715/blog/item/b16278451900063787947397.html

VBA才行呀 老大