三九宝宝网宝宝绘画儿童画

如何批量修改word图片大小

12月25日 编辑 39baobao.com

[请问怎样调整Excel中的图片大小]1、在Excel中可以调整图片大小,点击图片将光标移至任一一角,出现简头向内拉动,将其变小。 2、在EXCEL还可以对图片进行压缩,以减小图片大小。 1. 选择图片,点击格式 2. 点击“压...+阅读

打开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

以下为关联文档:

如何修改PPT背景图片1.首先我们先打开我们需要修改背景的PPT文档。 2.接着我们找到菜单中的“视图”下的“幻灯片模版”。 3.接着进入模板编辑界面。找到我们需要修改的背景图。 4.选中背景图,右...

转载PPT模板中的背景图片如何修改如公司的logo,就可以选中后Delete掉。 2.A. 利用背景的变换 首先利用Windows中的“画图”,或者其它图形编辑软件,将所需的模板存为图形文件。 然后进入PowerPoint,在工具栏“格...

VB中如何调整图象大小好说: 加入一个Image. 在它的picture属性里找一张你想要的图片. 把它的stretchy设置为true 然后编写代码: Private Sub Form_Load() Image1.Left = ScaleLeft Image1.Top = Sc...

VB如何控件图片的大小下面的代码是你的两个问题一起用的 IMAGE有个属性 Image1.Stretch = True 窗体1代码 Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long Priva...

ps怎样调整图像大小如截图首先呢,你移到的那个画布跟原图的尺寸不同,分辨率可能也不同,所以造成了那么一点点大。 如果你要在那个画布上变大,你的确只能按Ctrl+T。看一下拼音输入法是否开着,如果开着就关...

怎样批量调整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....

推荐阅读
图文推荐