作者：Syna
分类：｢SynaKyra｣
评论：没有评论
一般，我们将网页上的东西复制到Word文档时，图片属性里会有“可选文字说明”。但有些情况下，我们并不需要它，不然会被人发现文档是从网上复制下来；或者保存成PDF格式后，图片的可选文字会作为悬停时的说明显示在鼠标旁边。
今天告诉大家，如何通过宏来一次性清除或更改所有图片及形状的可选文字（只要向那两个空串""中加入自己的文字即可）：
Sub RemoveAllAlternativeTexts()
Dim oShape As Shape
Dim oInlineShape As InlineShape
For Each oShape In ActiveDocument.Shapes
oShape.AlternativeText = ""
Next
For Each oInlineShape In ActiveDocument.InlineShapes
oInlineShape.AlternativeText = ""
Next
End Sub
Dim oShape As Shape
Dim oInlineShape As InlineShape
For Each oShape In ActiveDocument.Shapes
oShape.AlternativeText = ""
Next
For Each oInlineShape In ActiveDocument.InlineShapes
oInlineShape.AlternativeText = ""
Next
End Sub
PS:关于宏的使用，可以参看这篇文章《批量修改ppt中所有字的字体颜色》。
上一篇：网站备份、镜像软件介绍
下一篇：饭否团队新作——美团网