做了个每页文档里插入图片功能，图片尺寸和位置失效是咋回事？

2025-02-08 09:47:19 751 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Word图片批量调整尺寸全攻略：高效统一图片大小实战指南在Word文档排版中，图片尺寸的统一性直接影响文档的专业度。面对数十张甚至上百张大小不一的图片，逐张调整不仅效率低下，还容易破坏文档结构的协调性。本文将通过系统级操作解析，结合实战技巧与底层逻辑，为您呈现Word图片批量处理的完整解决方案。阅读详情

做了功能，网每页文档里插入一张图片，并设定位置和尺寸。执行的时候，第一次执行正常，重复执行以下位置和尺寸就不管用了。代码如下

Dim objFileDialog As FileDialog
Dim i As Integer

Set objFileDialog = Application.FileDialog(msoFileDialogFilePicker)
objFileDialog.Title = "选择文件"
objFileDialog.Filters.Clear
objFileDialog.Filters.Add "PDF Files,png file,jpeg file,jpg", "*.pdf,*.png,*.jpeg,*.jpg"
objFileDialog.AllowMultiSelect = False

If objFileDialog.Show Then
strFilePath = objFileDialog.SelectedItems(1)
'MsgBox strFilePath

'插入图片操作-------------------------------------------------
'Dim i As Integer

Selection.HomeKey wdStory '如果删掉，图片会放在一个地方


If strFilePath <> "" Then

Application.Browser.Target = wdBrowsePage '设置按页浏览
Application.ScreenUpdating = False '关闭屏幕刷新

For i = 1 To ActiveDocument.ActiveWindow.ActivePane.Pages.Count

Selection.InlineShapes.AddPicture(strFilePath).ConvertToShape '插入图形

ActiveDocument.Shapes.Item(i).WrapFormat.Type = wdWrapFront '图片环绕方式
ActiveDocument.Shapes.Item(i).Top = 500 '上位置
ActiveDocument.Shapes.Item(i).Left = 300 '左位置
ActiveDocument.Shapes.Item(i).Width = 114 '图片大小，宽4厘米
ActiveDocument.Shapes.Item(i).Height = 114 '图片大小

Application.Browser.Next '走到下一页

NextIteration:
Next i

Application.ScreenUpdating = True '屏幕刷新

MsgBox "操作完毕"
Else
MsgBox "没有选择文件"

End If
'------------------------------------------------------------------

Else
'MsgBox "未选择文件"
End If

Set objFileDialog = Nothing