1. word中批处理图片大小
Sub 统一图片尺寸() Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = CentimetersToPoints(4) '高度4cmActiveDocument.InlineShapes(n).Width = CentimetersToPoints(3) '宽度3cmNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = CentimetersToPoints(4) '高度4cmActiveDocument.Shapes(n).Width = CentimetersToPoints(3) '宽度3cmNext nEnd Sub以上是统一图片大小的宏代码希望你能用得上。
ps:代码中的图片尺寸可以根据需要进行修改。
2. word嵌入式图片怎么批量调整大小2007?word嵌入式图片怎
你好,很高兴为您解答。
用WORD的宏功能可以实现这一功能。宏是一系列 Word 命令和指令,这些命令和指令组合在一起,形成了一个单独的命令,以实现任务执行的自动化。
首先,单击选定一张要改变尺寸的图片,并且勾选“视图/工具栏/图片”。然后执行:“工具(菜单)/宏/录制新宏”命令。
在弹出的对话框中,选择将宏保存在“工具栏”,然后在弹出的“命令”选项卡中,将新建的宏命令拖到工具栏上松开(工具栏上会出现宏命令按钮),点击“关闭”,会出现一个录制宏的工具条,这时就可以录制宏了。点击图片工具栏“设置图片格式”按钮,出现“设置图片格式对话框”,点“大小”选项卡,设置好图片的尺寸。
再点“工具(菜单)/宏/停止录制”命令宏就录制好了。 用的时候,单击选定图片,再点拖放到工具栏中宏命令就可以了。
转载请注明出处51数据库 » word2007批量处理比例