UC知道excel高手请进：如何动态显示外部图片
来源：百度知道 编辑：UC知道 时间：2024/05/24 02:29:12
在excel工作表中，单元格A1填写“图片1”，则在A2单元格显示名称为“图片1”的图片，随着A1格内容的变化，A2格的图片也要随之变化。图片在一个单独的文件夹内，且与工作表路径相同。如何实现这一要求，我先谢谢了。
设图片所在目录为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