【Word 2019 for Mac实用技能】word如何批量修改图片大小?

时间:2022-06-05 02:29:00 

如今,word对我们来说越来越重要,无论是工作还是生活,因此,多掌握一些word实用技能总归是有备无患的!

今天给大分享的是如何批量修改图片大小,不用任何修图软件,只要有Word 2019 for Mac即可完成!word也能修改图片大小?没错,而且简单实用,话不多说,想了解word批量修改图片大小图文教程的朋友请往下看!


1、选中word文档中图片,在菜单栏中选择【布局】—【页边距】,如下图所示:

【Word 2019 for Mac实用技能】word如何批量修改图片大小?

2、在其下拉菜单中选择【自定义边距】。在页面设置窗口中,我们把页边距设置为5厘米,点击【确定】,如下图所示:

【Word 2019 for Mac实用技能】word如何批量修改图片大小?

【Word 2019 for Mac实用技能】word如何批量修改图片大小?

3、将纸张调整为横向,点击【方向】,在其下来菜单中选择【横向】,如下图所示:

【Word 2019 for Mac实用技能】word如何批量修改图片大小?

【Word 2019 for Mac实用技能】word如何批量修改图片大小?

4、在word文档菜单栏中,选择【视图】—【宏】,如下图所示:

【Word 2019 for Mac实用技能】word如何批量修改图片大小?

5、在打开的宏设置窗口中,为要编辑的宏设置一个名称,如【调整照片大小1】,然后点击左侧的【创建】按钮,如下图所示:

【Word 2019 for Mac实用技能】word如何批量修改图片大小?

6、在打开的代码输入框中输入以下代码,如下图所示:

Sub setpicsize()
    Dim i
    Dim Height, Weight
    Height = 300
    Weight = 200
   
    On Error Resume Next '忽略错误
    For i = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
            ActiveDocument.InlineShapes(i).Height = Height '设置图片高度为 Height_px
            ActiveDocument.InlineShapes(i).Width = Weight '设置图片宽度 Weight_px
    Next i
 
    For i = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
            ActiveDocument.Shapes(i).Height = Height '设置图片高度为 Height_px
            ActiveDocument.Shapes(i).Width = Weight '设置图片宽度 Weight_px
    Next i
End Sub

【Word 2019 for Mac实用技能】word如何批量修改图片大小?

7、关闭代码输入框,回到Word文档后,选中图片,点击菜单栏中的【宏】,然后选中刚刚创建的宏,点击【运行】即可,如下图所示:

【Word 2019 for Mac实用技能】word如何批量修改图片大小?

8、批量调整图片大小完成,效果如下图所示:

【Word 2019 for Mac实用技能】word如何批量修改图片大小?

标签:word批量修改图片大小,Word,2019,for,Mac实用技巧,Mac版word技能
0
投稿

猜你喜欢

  • wps表格按成绩排序的方法步骤

    2023-05-03 20:15:28
  • 而是弹出对话框

    2023-04-04 10:52:05
  • excel数据透视表计算字段出现“错误”的原因及解决方法

    2023-08-01 21:53:14
  • 怎么查看MacBook Air/Pro中SSD制造商

    2022-01-15 19:43:53
  • win10更新1909后开机很慢

    2023-11-11 21:48:44
  • Win10 20H2频繁死机无响应怎么办?

    2022-03-22 01:11:25
  • WPS word如何批量更改错别字

    2022-03-23 04:23:09
  • Word中页眉页脚的操作方法

    2022-02-20 22:04:03
  • Win10玩冰汽时代闪退怎么办?Win10玩冰汽时代闪退的解决方法

    2023-12-14 12:29:40
  • Win10电脑怎么禁止别人乱安装软件?

    2023-04-03 22:50:20
  • 三种方法解决Win10系统IE浏览器经常卡死、假死的问题

    2023-01-17 23:30:26
  • excel文本转数值 需要利用excel分列功能实现

    2022-04-21 01:52:01
  • wps文字如何查找替换内容

    2023-07-19 16:31:34
  • 如何将Excel的文本数字转换成数字

    2022-01-15 17:09:08
  • Windows7桌面图标随意摆放的方法?

    2023-12-03 00:37:08
  • 腾讯市值2490亿美元 超过阿里巴巴成中国市值第一科技公司

    2023-01-24 22:12:06
  • Win7旗舰版Information Tool停止工作故障代码为40000

    2023-09-04 10:04:53
  • win10精简版好还是原版好?值得推荐的windows10精简版镜像ISO文件

    2022-04-16 09:49:48
  • excel日期转星期的六种方法图解教程

    2023-10-30 01:05:02
  • WPS 如何在word中选择矩形文本

    2023-10-14 09:24:32
  • asp之家 电脑教程 m.aspxhome.com