☰

Word 文档中的一千张 JPEG 图像：如何以相同的方式格式化它们？

tag-icon • tag-icon vba formatting microsoft-word jpeg
Word 文档中的一千张 JPEG 图像：如何以相同的方式格式化它们？

假设您有一个 Microsoft Word 2007 文档：您刚刚在其中插入了大约一千张 JPEG 图像。

对于第一张图像，右键单击，然后格式化图片，然后选择“重新着色”，然后在第二行“颜色模式”中选择“黑白”。

如何自动向其他 999 张 JPEG 图像发出相同的“格式化图片”命令？

我刚刚尝试使用 FORMAT PAINTER，但没有成功。

有什么线索吗？

这是一个类似的问题，但没有答案：http://thedailyreviewer.com/windowsapps/view/formatting-all-pictures-in-a-word-document-in-one-go-11962810

如何一次性选择所有图片，以实现一致的格式，以便它们在我的 Word 文档中显示相同，即，使它们都具有相同的文本环绕边距，例如...并且都是原始图片的相同 % 大小？如果 Word 不允许我“全选”图片，我是否可以复制图片的格式，然后以某种方式将其粘贴到其他图片上，类似于用于文本的格式刷？

提前感谢您的帮助。

答案1

你可以：

Dim Pic As InlineShape
For Each Pic In ActiveDocument.InlineShapes
  Pic.PictureFormat.ColorType = msoPictureGrayscale
Next

答案2

好的，非常感谢 Alex K.，解决方案如下：

Sub Macro1()
'
' Macro1 Macro
'
'
Dim Pic As InlineShape
For Each Pic In ActiveDocument.InlineShapes
  Pic.PictureFormat.ColorType = msoPictureBlackAndWhite
Next
End Sub

我接受了 Alex K. 的解决方案，因为他找到了解决问题的正确方法。正确的关键字是 msoPictureBlackAndWhite，而不是 msoPictureGrayscale。

非常感谢，Alex K. ;-)

相关内容