|
各位老师,大家好!
我想在Word表格插入图片,能力有限,请各位帮忙。
1、插入表格(3行4列)。
2、在指定的单元格插入指定图片(如第1行第1列插入图片1,第1行第2列插入图片2)。
3、图片大小调整。
效果如图
插入图片代码遇到问题,请帮忙修改。
- Sub test()
- ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
- 4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
- wdAutoFitFixed
- With Selection.Tables(1)
- If .Style <> "网格型" Then
- .Style = "网格型"
- End If
- End With
- Set mytab = ActiveDocument.Tables(1)
- For i = 1 To 4
- For j = 1 To 4
- mytab.Cell(i, j).Select
- Selection.InlineShapes.AddPicture FileName:= _
- "C:\Users\lenovo9991\Desktop\1\ & "图片" & i & .png", LinkToFile:=False, _
- SaveWithDocument:=True
- Next
- Next
- Dim shp As InlineShape
-
- ' 循环处理每个嵌入式图片
- For Each shp In ActiveDocument.InlineShapes
- ' 取消锁定纵横比
- shp.LockAspectRatio = msoFalse
- ' 设置图片尺寸为指定值,可以根据需要修改尺寸
- shp.Width = CentimetersToPoints(3)
- shp.Height = CentimetersToPoints(4.3)
- Next shp
- End Sub
复制代码 感谢了。
|
|