word文档修改图片缩小保存可下一次打开文档图片又放大
发布网友
发布时间:2022-05-17 10:50
我来回答
共1个回答
热心网友
时间:2023-10-19 12:11
打开所要调整图片大小的word文档。
点击工具—宏—visual basic编辑器。点击试图—代码窗口,打开代码窗口。
将代码“Sub setpicsize() '设置图片大小Dim n '图片个数On
Error Resume Next '忽略错误For n =
1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height
= 100 '设置图片高度为 100pxActiveDocument.InlineShapes(n).Width = 100 '设置图片宽度
100pxNext nFor n =
1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height
= 100 '设置图片高度为 100pxActiveDocument.Shapes(n).Width = 100 '设置图片宽度
100pxNext nEnd Sub”
输入窗口,修改其中“Height = 100”和“Width = 100”即可按照要求更改图片大小。
点击运行—运行子程序,或者按F5运行即可。图片大小就修改完毕。
如果说图片是按比例修改,则把第三步的程序改为:
Sub setpicsize() '设置图片大小Dim n '图片个数Dim picwidthDim picheightOn
Error Resume Next '忽略错误For n =
1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片picheight =
ActiveDocument.InlineShapes(n).Heightpicwidth =
ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height
= picheight * 1.1 '设置高度为1.1倍ActiveDocument.InlineShapes(n).Width =
picwidth * 1.1 '设置宽度为1.1倍Next nFor n =
1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight =
ActiveDocument.Shapes(n).Heightpicwidth =
ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height =
picheight * 1.1 '设置高度为1.1倍ActiveDocument.Shapes(n).Width = picwidth *
1.1 '设置宽度为1.1倍Next nEnd Sub