在Word中批量调整图片大小

songczln2004 · 发表于 2012-4-19 18:56

youliqi 发表于 2012-4-19 14:16
图片旋转后，先将其版式设置为“四周型”，再设置为“嵌入型”，最后再点代码

多谢了，不知道为啥，反应得重新设置下版式

whwl83 · 发表于 2012-6-4 17:02

好，学习中，。。。。

秦源侠士 · 发表于 2012-6-6 00:27

很好，学习了

军生 · 发表于 2012-8-1 12:44

Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 50 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 50 '设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
Next n
End Sub

txzxcsb · 发表于 2012-8-19 20:45

很好的代码，收藏了。谢谢

lintf · 发表于 2013-1-26 12:17

学习，研究

wnh728 · 发表于 2013-1-26 13:06

批量调整图片大小，好事，谢谢楼主资源共享！！

BOBBY北方笨猪 · 发表于 2015-7-8 23:18

能用录制宏的方法实现么

youliqi · 发表于 2015-7-10 21:04

BOBBY北方笨猪发表于 2015-7-8 23:18
能用录制宏的方法实现么

没有试过，应该不如用VBA来的省事

oylw · 发表于 2015-7-13 19:48

VBA？有点复杂！！

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

[分享] 在Word中批量调整图片大小

评分