[《梅花转字》作者署名修改稿]梅花转字（相声） 孙世泉 边角儿 （整理） （一点说明：1963我刚上小学一年级，姥爷讽刺我写的字太乱，讲了这个小故事。现整理成“相声”与大家分享。） 甲：汉字博大精深，书体分箴草隶篆四种。...+阅读

打开word，按下Alt+F8，出现宏界面，为新建的宏取名为AdjustPicWidthAndHeight 点击编辑按钮，输入下面红色字体标出的内容 Sub AdjustPicWidthAndHeight() ' ' AdvertisePublishAs 宏 ' 将广告发布导出为 PDF 和 XPS 'Sub setpicsize（) '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片 ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比 ActiveDocument.InlineShapes(n).Height = 320 '设置图片高度为 320px ActiveDocument.InlineShapes(n).Width = 425 '设置图片宽度 425px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片 ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比 ActiveDocument.Shapes(n).Height = 320 '设置图片高度为 320px ActiveDocument.Shapes(n).Width = 425 '设置图片宽度 425px Next n End Sub word 批量修改图片大小——固定长宽篇 这部分要说的是把word 中的所有图片修改成固定的并且相同的长和宽！ 2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存 Sub setpicsize（) '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片 ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片 ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px Next n End Sub 3、返回word，工具-宏-宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！ 具体操作同上，只是代码部分稍做修改，代码如下： 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中所有图片大小的修改，在次与大家共享，也希望可以给大家参考。 1、Alt+F8调出宏编辑窗口 2、点创建按钮，创建新宏，setpicsize，内容如下： Sub set...

word如何批量修改图片大小word批量修改图片大小方法： 固定长宽方法： 1、打开word，工具-宏-宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！ 2、宏名起好了，单击“创建”进入V...

怎样在word批量修改图片大小分析：由于Word不能像excel一样多选图片，所以不能多选图片后统一缩放，所以考虑可以重复多次一样动作的宏功能： 打开视图-宏-输入一个名字-创建 2.输入以下代码，注意替换内有的内容...

如何在word中批量修改图片大小2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存Subsetpicsize（)'设置图片大小Dimn'图片个数On Error Resume Next'忽略错误Forn = 1ToActiveDocument....