搜档网
当前位置：搜档网 › word宏：批量统一图片大小(比例缩放)
word宏：批量统一图片大小(比例缩放)
Sub setpicsize() '设置图片大小
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
相关主题
相关文档
- Word采用宏命令批量调整照片大小方法
- Word 批量调整图片大小、纵横比的宏
- Word中整体修改图片大小-宏
- 批量修改图片尺寸的宏命令
- Word宏：Word中的图片批量统一大小及同比例缩放(图)
- WORD中图片大小统一调整宏设置方法.pdf
- 怎样批量调整word 图片大小
- Word中的图片批量统一大小及同比例缩放
- 中图片大小统一调整宏设置方法 (2)
- 宏命令将图片批量替换成统一大小
- word宏命令等比例放大缩小所有图片或指定更改图片大小
- 用宏批量调整word中图片版式、大小、方向
- WORD中图片大小统一调整宏设置方法
- word中插入图片显示图片名称修改图片大小的宏
- (完整版)Word中的图片批量统一大小及同比例缩放
- 用宏批量调整中图片版式大小方向
- 使用宏批量处理word中的图片大小
- word批量修改图片大小
- Word宏：Word中的图片批量统一大小及同比例缩放(图)
- 用宏批量调整word中图片版式 大小 方向