【文件属性】:
文件名称:word批量按比例缩放图片.txt
文件大小:959B
文件格式:TXT
更新时间:2023-02-27 08:02:16
word批量按比例缩放图片
word批量按比例缩放图片
Sub 按比例缩放图片()
Dim n '图片个数
Dim picwidth
Dim picheight
On Error Resume Next '忽略错误
kH=0.95 !图片高度缩放比例
kW=0.95 !图片宽度缩放比例