使用word中的VBA 批量设置Word中所有图片大小

在VBA编辑器中,你可以创建、编辑和运行VBA宏代码,以实现自动化任务和自定义Word 功能。如果你是VBA编程初学者,可以在VBA编辑器中查看Word VBA宏代码示例,以便更好地了解如何使用VBA编写代码。

要打开VBA编辑器,你可以按照以下步骤:

  1. 文件-选项-自定义功能区-开发工具打上对钩-确定。
  1. 开发工具-visual basic

  2. 插入-模块

  1. 在其中粘贴以下内容:
python 复制代码
Sub FormatPics()

Dim Shap As InlineShape

For Each Shap In ActiveDocument.InlineShapes

If Shap.Type = wdInlineShapePicture Then

Shap.LockAspectRatio = msoTrue '锁定纵横比

Shap.Width = CentimetersToPoints(16) '宽16CM

End If

Next

End Sub

也可以不锁定纵横比:

python 复制代码
Sub FormatPics

Dim Shap As InlineShape

For Each Shap In ActiveDocument.InlineShapes

If Shap.Type = wdInlineShapePicture Then

Shap.LockAspectRatio = msoFalse '不锁定纵横比

Shap.Width = CentimetersToPoints(10) '宽10CM

Shap.Height = CentimetersToPoints(7) '高7CM

End If

Next

End Sub
  1. 然后点击运行即可
相关推荐
bu_shuo38 分钟前
word表格中使用公式
word·表格
不坑老师4 小时前
利用不坑盒子的Copilot,快速排值班表
microsoft·word·powerpoint·excel·copilot·wps
开开心心就好7 小时前
批量PDF转换工具,一键转换Word Excel
开发语言·前端·学习·pdf·电脑·word·excel
RainSerein1 天前
Laravel8中使用phpword生成word文档
word·php·laravel
qq_393828221 天前
办公文档批量打印器 Word、PPT、Excel、PDF、图片和文本,它都支持批量打印。
windows·word·powerpoint·excel·软件需求
_oP_i11 天前
实现 “WebView2 获取word选中内容
开发语言·c#·word
LENG_Lingliang11 天前
word出现由WPS切换后公式异常无法删除的情况处理
word·wps·mathtype
贤和兄11 天前
使用docx4j 实现word转pdf(linux乱码处理)
linux·pdf·word
开开心心就好12 天前
高效批量转换Word到PDF的方法
javascript·安全·智能手机·pdf·word·objective-c·lisp
response_L12 天前
麒麟v10、uos系统在线批量生成pdf文件
java·pdf·word·pageoffice·在线编辑