你好 我有个表格的用VB往excel中插入图片并调整成相同大小的图片 的问题 想请求你帮助 可以给我一下你的QQ

Question

在线帮我一下吗？先谢谢你了！！

Answer 1

EXCEL表格，假设：
A列是产品图片，B列是货号，在B列输入货号（如123）的同时把放在E:\PIC目录下的相应货号的JPG图片调出来，且大小与A列单元格完全相符。
用vba，按下ALT+F11,菜单:插入-模块,复制下面代码至代码框.按F5即可

Sub addpicture()

Dim FirstRow, LastRow As Integer, FileType As String
FirstRow = Sheet1.UsedRange.Row
LastRow = FirstRow + Sheet1.UsedRange.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

说明，图片文件夹 图片文件名与输入货号一致。来自：求助得到的回答

Answer 2

1322207320