word批量修改图片大小——固定长宽篇这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽!1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示,输入一个宏名,宏名自己起,能记住就行!2、宏名起好了,单击“创建”进入Visual Basic 编辑器,输入如下代码并保存Sub setpicsize() "设置图片大小Dim n"图片个数On Error Resume Next "忽略错误For n = 1 To ActiveDocument.InlineShapes.Count "InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400 "设置图片高度为 400pxActiveDocument.InlineShapes(n).Width = 300 "设置图片宽度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count "Shapes类型图片ActiveDocument.Shapes(n).Height = 400 "设置图片高度为 400pxActiveDocument.Shapes(n).Width = 300 "设置图片宽度 300pxNext nEnd Sub3、返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了!(图片多时,可能会花一些时间)word批量修改图片大小——按比例缩放篇这部分要说的是把word中的所有图片按比例缩放!具体操作同上,只是代码部分稍做修改,代码如下: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 ToActiveDocument.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
范文推荐
- 万圣节的传统游戏
- 办公室行政后勤工作总结900字
- 组织部活动总结
- 高一政治备课组工作计划
- 2019年驾驶员工作总结范文
- [情侣暧昧肉麻情话]亲热暧昧情侣的个性签名
- 学校保安下半年工作计划2018
- 【我想有个家 潘美辰】我想有个家,一个我受伤了可以疗伤的家。的心情短语(心情说说)
- 【安徽省人民政府金融工作办公室】人民政府办公室2019年工作总结
- 俞敏洪创业经历_俞敏洪创业家5周年庆典励志演讲稿
- 长期承包土地合同范本
- 素质拓展训练个人心得体会
- [警校毕业生自我鉴定]警校毕业生实习报告范文
- 【钱钟书扬降爱情】钱钟书《论宋诗》阅读及答案
- 酒店前台个人年度总结范文
- [ted演讲稿中英文对照]父亲节演讲稿(中英文)
- 演讲比赛颁奖晚会主持词
- 【广发银行理财产品2019】2019广发银行员工年终总结
- 2020学校团委书记述职报告
- [qq情侣签名]情侣签名-你若一直在、我便一直爱