《ppt转word 图片大小批处理》由会员分享,可在线阅读,更多相关《ppt转word 图片大小批处理(5页珍藏版)》请在金锄头文库上搜索。
1、改变图片大小设置宏:Sub 修改图片大小()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 * 0.8 设置高
2、度为1.1倍ActiveDocument.InlineShapes(n).Width = picwidth * 0.8 设置宽度为1.1倍Next nFor n = 1 To ActiveDocument.Shapes.Count Shapes类型图片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight * 0.8 设置高度为1.1倍ActiveDocument.Shapes(n).Width = picwidth * 0.8 设置宽度为1.1倍Next nEnd Sub