如何对word内部分处于选择状态的图片进行处理？

snow653124 · 发表于 2022-4-17 14:30

如下代码，是摘抄的统计文档内所有图片大小的，但如果扩大需求，比如仅对文档内部分处于选择状态的图片大小进行统计，这个如何改写？
应该是i值得确定，可是不会，百度这部分的代码也没有，特求助。
谢谢了

Sub SizeF()
Dim img As InlineShape
For i = 1 To ActiveDocument.InlineShapes.Count
Set img = ActiveDocument.InlineShapes(i)
img.Select
MsgBox "高:" & img.Height & "宽:" & img.Width '高宽实际尺寸单位px像素。
Next
End Sub

附示例，文档内共5个图片，仅对第3-4个图片进行统计，如何？

如何对word内部分处于选择状态的图片进行处理示例.rar (142.15 KB, 下载次数: 0)

snow653124 · 发表于 2022-4-20 04:24

已经解决了用for each

		自动登录	找回密码
密码			免费注册

[求助] 如何对word内部分处于选择状态的图片进行处理？