excel在单元格中插入图片

excel在单元格中插入图片，图片大小自动与单元格一致

插入图片后，右键图片--属性--勾选“大小随单元格变化”

列：EXCEL表格，A列是产品图片，B列是货号，能否在B列输入货号（如123）的同时把放在E:\tmp目录下的相应货号的JPG图片调出来，且大小与A列单元格完全相符。

用vba，按下ALT+F11,菜单:插入-模块,复制下面代码至代码框.按F5即可

Sub addpicture()

Dim FirstRow, LastRow As Integer, FileType As String

FirstRow = edRange.Row

LastRow = FirstRow + edRange.Rows.Count - 1

FileType = InputBox("输入你的图片的后缀名", "输入图片格式", "jpg")

For i = FirstRow To LastRow

Numb = Cells(i, 2).Value

With ActiveSheet

.Pictures.Insert("D:\tmp\" & Numb & "." & FileType).Select

Set Target = .Cells(i, 1)

End With

With Selection

.Top = Target.Top + 1

.Left = Target.Left + 1

.Width = Target.Width - 1

.Height = Target.Height - 1

End With

Next i

End Sub

说明，图片文件夹图片文件名与输入货号一致。