word中怎样一次性调整所有图片大小?
情况是这样,我去湖南寻根拍回来一套家谱,一共500页.我虽然知道图片可以直接打印,但我去打印,那家伙非得一张一张的给我打,但一张A4上明明就可以排两张图片来大.可是他拒绝...
情况是这样,我去湖南寻根拍回来一套家谱,一共500页.我虽然知道图片可以直接打印,但我去打印,那家伙非得一张一张的给我打,但一张A4上明明就可以排两张图片来大.可是他拒绝这么搞,所以我拿了文件离开了.我现在回到家,自己插入到WORD里,我A4一张上排两张,我做好之后再去打印店打,他不可能还把我一张拆成两张来打吧.但问题出来了,我插入A4纸上之后,一张纸上只出现一张图片,需要手工把图片拖小,这样一张上才会有两张图.但是总共有五百多张啊,好麻烦,请问有什么可以一次性的方法?
展开
12个回答
博思aippt
2024-07-20 广告
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员,对于Word文档生成PPT的操作,我们有以下建议:1. 使用另存为功能:在Word中编辑完文档后,点击文件->另存为,选择PowerPoint演示文稿(*.pptx)格式,即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
展开全部
由于是批量的处理同样的事情,因此要用到宏。
是这样的,如果你的图片显示的是嵌入式的。也就是不能旋转的那种格式,钻切换大小会很容易,方法
要使用宏命令。
宏主要用来处理有规律的重复的工作,相当于批处理。想好了就能编辑出来。工具→宏→录制新宏→然后指定一个快捷键(如L,相当于ctrl L快捷键),然后指定、关闭。开始录制宏。把你能够重复的操作执行一下,以计算机能识别的重复为准。然后→工具→宏→停止录制。这样宏就录制出来了。你ctrl L执行就行了。连续按,则连续执行。如果不完全正确,还要修改或重新录制宏。
对你来说:使用的循环是:查找,图形→然后调整大小,然后鼠标移到图形右侧。然后再执行循环。这个命令是:ctrl F,点开高级,查找里面,选择特殊格式里面的“图形”,单击查找下一个。关掉查找界面,回到word编辑界面。直接去单击 格式菜单里面的 图片,设置大小为你认可的比例。确定。然后将光标用键盘移出 图片(右移以下)。
执行宏即可。
大侠在线358725389@qq.com(目前只能邮箱联系,账号满员)
2010年6月8日
是这样的,如果你的图片显示的是嵌入式的。也就是不能旋转的那种格式,钻切换大小会很容易,方法
要使用宏命令。
宏主要用来处理有规律的重复的工作,相当于批处理。想好了就能编辑出来。工具→宏→录制新宏→然后指定一个快捷键(如L,相当于ctrl L快捷键),然后指定、关闭。开始录制宏。把你能够重复的操作执行一下,以计算机能识别的重复为准。然后→工具→宏→停止录制。这样宏就录制出来了。你ctrl L执行就行了。连续按,则连续执行。如果不完全正确,还要修改或重新录制宏。
对你来说:使用的循环是:查找,图形→然后调整大小,然后鼠标移到图形右侧。然后再执行循环。这个命令是:ctrl F,点开高级,查找里面,选择特殊格式里面的“图形”,单击查找下一个。关掉查找界面,回到word编辑界面。直接去单击 格式菜单里面的 图片,设置大小为你认可的比例。确定。然后将光标用键盘移出 图片(右移以下)。
执行宏即可。
大侠在线358725389@qq.com(目前只能邮箱联系,账号满员)
2010年6月8日
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
1、在电脑桌面中双击Word快捷方式,或使用系统任务栏中的搜索栏搜索:word,随后点击搜索结果来打开word应用程序。
2、在打开word应用程序的软件界面右侧上方选择“空白文档”选项,系统会自动新建空白的文档。
3、在随后打开的软件界面上方选择“插入”选项卡,在随后打开的菜单组中选择“图片”按钮
4、从自己的计算机中选择多张图片,并在对话框下部点击“插入”按钮。
5、任意选择一张图片,并右键选择该图片,点击“大小和位置”按钮。
6、在弹出的对话框中取消勾选“销定纵横出”按钮
7、随后更改高度和宽度的绝对值为统一值,点击“确定”后在文档界面按下键盘快捷键F4即可批量更改完成。
Word中批量设置图片大小的方法就是这些。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用宏就可以了,参考:
Sub 统一图片大小()
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoTrue
iShape.Height = CentimetersToPoints(15)
'iShape.Width = CentimetersToPoints(15)
Next
End Sub
注:根据需要选择 第3行 与 第5行 命令。
Sub 统一图片大小()
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoTrue
iShape.Height = CentimetersToPoints(15)
'iShape.Width = CentimetersToPoints(15)
Next
End Sub
注:根据需要选择 第3行 与 第5行 命令。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询