电子表格在EXCEL中一次插入多张图片并且图片按照图片文件名对应选择的列

1.在EXCEL中一次插入多张图片并且图片按照图片文件名对应选择的列

这样试一下：

在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