word表格插入图片

dongdonggege

各位老师，大家好！

我想在Word表格插入图片，能力有限，请各位帮忙。
1、插入表格（3行4列）。
2、在指定的单元格插入指定图片（如第1行第1列插入图片1，第1行第2列插入图片2）。
3、图片大小调整。
效果如图
插入图片代码遇到问题，请帮忙修改。

1. 
   
2. Sub test()
   
3.     ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
   
4.         4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
   
5.         wdAutoFitFixed
   
6.     With Selection.Tables(1)
   
7.         If .Style <> "网格型" Then
   
8.             .Style = "网格型"
   
9.         End If
   
10.     End With
    
11.     Set mytab = ActiveDocument.Tables(1)
    
12.     For i = 1 To 4
    
13.         For j = 1 To 4
    
14.             mytab.Cell(i, j).Select
    
15.             Selection.InlineShapes.AddPicture FileName:= _
    
16.                 "C:\Users\lenovo9991\Desktop\1\ & "图片" & i & .png", LinkToFile:=False, _
    
17.                 SaveWithDocument:=True
    
18.         Next
    
19.     Next
    
20.     Dim shp As InlineShape
    
21.    
    
22.     ' 循环处理每个嵌入式图片
    
23.     For Each shp In ActiveDocument.InlineShapes
    
24.         ' 取消锁定纵横比
    
25.         shp.LockAspectRatio = msoFalse
    
26.         ' 设置图片尺寸为指定值，可以根据需要修改尺寸
    
27.         shp.Width = CentimetersToPoints(3)
    
28.         shp.Height = CentimetersToPoints(4.3)
    
29.     Next shp
    
30. End Sub

复制代码

感谢了。

dongdonggege

有高手吗？问个问题都没人回答。

dongdonggege

插入图片的部分，修改了，能插入图片了，前面插入的也对。就是计算有问题，到第2行第1个，不知道是图片命名的不对，还是程序有问题，请高手帮忙。

原来我需要这样格式的，

可是运行程序后，变成这样的了。

新的程序如下

1. Sub test()
   
2.     ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
   
3.         4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
   
4.         wdAutoFitFixed
   
5.     With Selection.Tables(1)
   
6.         If .Style <> "网格型" Then
   
7.             .Style = "网格型"
   
8.         End If
   
9.     End With
   
10.     Set mytab = ActiveDocument.Tables(1)
    
11.     For i = 1 To 3
    
12.         For j = 1 To 4
    
13.             mytab.Cell(i, j).Select
    
14.             Selection.InlineShapes.AddPicture FileName:= _
    
15.                 "C:\Users\lenovo9991\Desktop\1" & "图片" & i * j & ".png", LinkToFile:=False, _
    
16.                 SaveWithDocument:=True
    
17.         Next
    
18.     Next
    
19.     Dim shp As InlineShape
    
20.    
    
21.     ' 循环处理每个嵌入式图片
    
22.     For Each shp In ActiveDocument.InlineShapes
    
23.         ' 取消锁定纵横比
    
24.         shp.LockAspectRatio = msoFalse
    
25.         ' 设置图片尺寸为指定值，可以根据需要修改尺寸
    
26.         shp.Width = CentimetersToPoints(3)
    
27.         shp.Height = CentimetersToPoints(4.3)
    
28.     Next shp
    
29. End Sub

复制代码

怎么修改？请高手帮忙。

常扬帆

我这里是论坛哪位大师写的一个宏，不知道是您要的不？

dongdonggege

常扬帆 发表于 2024-4-12 13:41
我这里是论坛哪位大师写的一个宏，不知道是您要的不？

我的程序审核已经结束，在上面，我的方法是重新命名文件，插入的图片的程序也修改了，很满意。
也谢谢你提供好的建议，感谢。

小花鹿

dongdonggege 发表于 2024-4-12 13:08
有高手吗？问个问题都没人回答。

不是没人回答
第一，你没有附件，别人写代码无法测试，总不能别人为了回答你这个问题，再亲自做一个附件吧
第二，最好别发自己的代码，很少人会去分析别人的代码，只要发附件并说明要求就行了