请问如何批量选中word中的所有图片啊，想快速调整大小，谢谢！

任我逍遥 · 发表于 2010-7-21 23:42

任我逍遥 · 发表于 2010-7-22 00:51

我搜索到一种方法，Alt+F11切换到VBE窗口，调出立即窗口，输入ActiveDocument.Shapes.SelectAll选中所有图片,然后使用图片工具栏,批量调整图片格式即可.

renqiang851224 · 发表于 2010-7-22 13:47

使用查找与替换

hongchong · 发表于 2011-2-21 14:03

thank you very much ,i am searching for it .

sqhsqhli · 发表于 2011-2-21 21:43

Sub 图片统一大小()
On Error Resume Next
Dim mywidth
Dim myheight
Application.ScreenUpdating = False '关闭屏幕更新
mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；", Title:="请输入图片宽度", Default:="0")) * 28.35
myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；", Title:="请输入图片高度", Default:="0")) * 28.35
'------------------------------------------------------------------
'调整嵌入式图形
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
If mywidth = "0" Then
pic.Height = myheight
pic.ScaleWidth = pic.ScaleHeight
ElseIf myheight = "0" Then
pic.Width = mywidth
pic.ScaleHeight = pic.ScaleWidth
Else
pic.Width = mywidth
pic.Height = myheight
End If
Next
'调整浮动式图形
Dim tu As Shape
For Each tu In ActiveDocument.Shapes
If mywidth = "0" Then
tu.Height = myheight
ElseIf myheight = "0" Then
tu.Width = mywidth
Else
tu.LockAspectRatio = msoFalse
tu.Width = mywidth
tu.Height = myheight
End If
Next
Application.ScreenUpdating = True '恢复屏幕更新
End Sub

szqhb · 发表于 2011-2-21 22:18

做个记号先

aiikii · 发表于 2011-6-15 19:41

遇到了同样问题。

bxlzbtpap · 发表于 2011-8-8 14:53

原帖由 任我逍遥 于 2010-7-22 00:51 发表
我搜索到一种方法，Alt+F11切换到VBE窗口，调出立即窗口，输入ActiveDocument.Shapes.SelectAll选中所有图片,然后使用图片工具栏,批量调整图片格式即可.

还是看不明白。偶输入了，但怎么选中呢？

沙漠滴雨 · 发表于 2016-1-11 09:33

Sub 选中所有图片()
ActiveDocument.Shapes.SelectAll
End Sub
然后运行。

kabudaa · 发表于 2020-12-13 16:46

收藏先收藏先收藏先收藏先

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

[求助] 请问如何批量选中word中的所有图片啊，想快速调整大小，谢谢！

回复 1楼任我逍遥的帖子

thank you very much ,i am searching for it .

哎，又是转发代码

[求助] 请问如何批量选中word中的所有图片啊，想快速调整大小，谢谢！

回复 1楼 任我逍遥 的帖子

thank you very much ,i am searching for it .

哎，又是转发代码

回复 1楼任我逍遥的帖子