Excel VBA 将 ShapeEffect 应用于图表系列

Question

我有我编写的 VBA 代码，它创建了一个 Excel 列簇图表，我的所有代码都可以正常工作，但是我对图表的外观不满意，所以我试图对其进行修饰。该图表是自动报告的一部分，因此我只想能够安排我的宏运行，而不必手动更改数据系列。因为 Excel 2007 将图表的属性和方法设置为只读，所以在您录制宏时不会填充它们。

所以我正在尝试做与以下帖子类似的事情 How to apply ShapeStyle to a specific Series of a Chart in Excel using VBA?

但是，我正在尝试将形状效果应用于图表系列。手动获得形状效果我希望您必须选择图表中的系列，然后选择图表工具 > 格式 > 形状效果 > 预设 > 预设 2。这使得数据系列看起来是 3D 的，而没有 3D 图表的麻烦。此外，我无法使用 3D 图表，因为我在第二次访问时有第四个数据系列，而您无法使用 3D 柱状图来执行此操作。

任何帮助将不胜感激。

更新

我在 2010 年回过头来查看了这个，看看是否有任何变化。您仍然不能直接将预设应用到图表，但记录宏确实会尝试记录某些内容。

如果您选择一个系列并应用预设，然后查看 3-D 选项，您可以看到设置了哪些值。从那里开始，只需在您的 VBA 中设置它们即可。

这里是 3-D 选项的类

 Selection.Format.Line
 Selection.Format.Fill
 Selection.Format.Shadow
 Selection.Format.Glow
 Selection.Format.ThreeD

属性很多，就不一一列举了。我确实发现，如果你录制一个宏并设置一个属性，它就会被录制下来，这样可以帮助你更接近应用所需的效果。

Answer 1

您可以尝试以下尝试之一：

Chart.ApplyLayout(1)

使用您之前定义的 Diagrammlayoutpreset。

或者使用这个：

with Chart.SeriesCollection(1).Format.ThreeD
     .visible = true  
     .depth = 50
end with

在 Excel-Help 中查找 ThreeDFormat-Object 以获得所有可能的设置。这不是 3D-Style-Chart，而是 3D-Style series ;) 要获得与 preset2 相同的结果，只需在 preset2-series 的格式对话框中查找格式更改即可。