|
楼主 |
发表于 2019-3-18 16:36
|
显示全部楼层
我已经根据您给的程序修改成需要的样子,还有按原始比例缩放至适合单元格尺寸我不会,能否再帮我改改??
以下是我修改后的程序:
Sub 插入图片手工具()
Set fso = CreateObject("Scripting.FileSystemObject")
Application.ScreenUpdating = False
i = 8
j = 4
For Each f In fso.getfolder(ThisWorkbook.Path & "\报告\").Files
Set Rng = Cells(i, j)
Rng.Select
ActiveSheet.Shapes.AddPicture f, msoFalse, msoCTrue, Rng.Left + 2, Rng.Top + 2, Rng.Width - 4, Rng.Height - 4
j = j + 1
If j - 4 = 7 Then i = i + 1
If j - 4 = 7 Then j = 4
Next f
Application.ScreenUpdating = True
End Sub
|
|