word 文档处理 里面有大批的图片 需要裁剪 但是我每次都是点击操作

发布于2022-01-13 20:36:43
5个回答
admin
网友回答2022-01-13
不知道有没有楼主所要的快捷键,但如果要裁剪的情况是相同的,倒可以试试这个办法:
选中所有图形(用绘图工具栏里面的选择对象那个箭头,左键拖动框住或者按住CTRL键,一个一个图片点击选中),然后“设置图片格式”,图片标签下有个裁剪尺寸的输入框,输入你要裁剪的尺寸,确定就行了,这样就能一次设置所有图片的裁剪效果
admin
网友回答2022-01-13
打开word的宏(在视图中)—查看宏—输入宏名字(例如:修改图片大小)—创建
ps:我经常用,很方便!!

把下面代码粘贴上去便可(把框中已有的删掉):

Sub 修改图片大小()

Dim n '图片个数

Dim picwidth

Dim picheight

On Error Resume Next '忽略错误

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片

picheight = ActiveDocument.InlineShapes(n).Height

picwidth = ActiveDocument.InlineShapes(n).Width

ActiveDocument.InlineShapes(n).Height = picheight * 0.8 '设置高度为1.1倍

ActiveDocument.InlineShapes(n).Width = picwidth * 0.8 '设置宽度为1.1倍

Next n

For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片

picheight = ActiveDocument.Shapes(n).Height

picwidth = ActiveDocument.Shapes(n).Width

ActiveDocument.Shapes(n).Height = picheight * 0.8 '设置高度为1.1倍

ActiveDocument.Shapes(n).Width = picwidth * 0.8 '设置宽度为1.1倍

Next n

End Sub
admin
网友回答2022-01-13
I3处理器 或者I5处理器 4G内存可升8G内存的那种 750G硬盘
admin
网友回答2022-01-13
抱歉 国内DIY笔记本很少 硬件难找 建议升级现在的本 或者买新的
比如 联想B490G-BEI 1900元
admin
网友回答2022-01-13
也不用太好的就行,加个内存条就行,扩展一下内存就行了

回到
顶部