Word 使用宏非嵌入图片批量转嵌入图片

Office 2013 为例:

视图 – 宏 – 查看宏 – 创建

在代码框里填写下列代码,然后保存运行。

Sub 非嵌入转嵌入()
Dim oShape As Shape
For Each oShape In ActiveDocument.Shapes
oShape.ConvertToInlineShape
Next
End Sub

reeoo.com - web design inspiration

发表评论

电子邮件地址不会被公开。 必填项已用*标注