如何在Word2007中使用VBA在一个任务中更新PictureStyles？

Question

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

我尝试通过使用鼠标完成步骤和仅使用键盘执行我想要的操作来录制宏，但是图片样式分配步骤都没有显示在生成的vba模块中。

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

从这个角度看，似乎这个功能并没有在对象模型中公开。我想知道是否有人找到了这样做的方法，如果没有，最好的解决方法是什么。

谢谢，斯宾塞

Answer 1

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

根据我使用Word 2010的经验，需要注意的事项有：Borders、Fill、Glow、PictureFormat、Reflection、Shadow和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

阴影模糊和偏移是你不能真正看到的微小变化。