急！！用VB往excel中插入图片并调整成相同大小的图片

来源：百度知道 编辑：UC知道 时间：2024/09/23 01:39:59
在A列插入图片，图片的路径是E盘FF文件夹中的文件夹，文件夹的名称是B列的数据，图片文件的名称是C列的数据。拜托各位高手啦！！

使用EXCEL的VBA功能，在代码窗口输入如下代码，作相应的修改，然后执行就可以了：

Sub 批量插入图片()
On Error Resume Next

Dim i As Integer
Dim 末行行号 As Integer
Dim 图片路径 As String '图片的完整路径

末行行号 = Cells.SpecialCells(11).Row
For i = ActiveCell.Row To 末行行号
Cells(i, 1).Select
图片路径 = Cells(i, 2) & Cells(i, 3) '此处要根据实际作相应的修改
With ActiveSheet.Pictures.Insert(图片路径)
.ShapeRange.Height = 9.75 '这个数值是图片的高度，要根据要求作修改
.ShapeRange.Width = 28.5 '这个数值是图片的宽度，要根据要求作修改
End With
Next i
End Sub