如何在 Word 2007 中使用 VBA 在一项作业中更新 PictureStyles？

Question

我正在尝试帮助同事处理一些 Word 2007 图片格式设置。我希望能够通过将图片指定为您可以从功能区的“图片格式”选项卡中选择的命名样式之一来更新边框样式、阴影等。我尝试使用的样式称为“简单框架，黑色”。不幸的是，我在对象模型参考中没有找到任何有关将这些样式用于 InlineShapes 的文档。

我尝试录制宏，既使用鼠标执行步骤，又仅使用键盘执行我想要的操作，但没有任何图片样式分配步骤显示在生成的 vba 模块中。

我在egghead上发现了一个类似的问题 这里

由此看来，这个功能可能没有在对象模型中公开。我想知道是否有人找到了一种方法来做到这一点，如果没有，解决这个问题的最佳方法是什么。

谢谢， 斯宾塞

Answer 1

据我所知，没有办法直接从 VBA 设置命名图片样式。这有点耗时，但我的建议是将两张图片插入到一个 Word 文档中，对其中一张图片应用格式，然后在 VBE Watch 窗口中检查这两个对象。

根据我使用Word 2010的经验，需要注意的事情是：Borders、Fill、Glow、PictureFormat >, 反射, 阴影, & SoftEdge。

在 Word 2010 中，要更改不带格式的图片，使其具有与“简单框架，黑色”样式相同的格式，请应用以下更改：

With ThisDocument.InlineShapes(1)
   .Borders.OutsideLineStyle = wdLineStyleSingle
   .Borders.OutsideLineWidth = wdLineWidth300pt
   With .Shadow
      .Blur = 4
      .OffsetX = 2.12132
      .OffsetY = 2.12132
      .Style = msoShadowStyleOuterShadow
      .Transparency = 0.57
      .Visible = msoTrue
   End With
End With

阴影模糊和偏移是您无法真正看到的细微更改。