将ShapeEffect应用于图表系列的Excel VBA

Question

我编写了VBA代码来创建Excel柱状聚类图，并且我的所有代码都可以工作，但是我对图表的外观不满意，所以我尝试对其进行一些修饰。该图表是自动报告的一部分，因此我只希望能够安排我的宏运行，而不必手动更改数据系列。由于Excel2007将图表的属性和方法设置为只读，因此在录制宏时不会填充这些属性和方法。

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

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

任何帮助都将不胜感激。

更新

我回顾了2010年的情况，看看有没有什么变化。您仍然不能直接将预设应用于图表，但是record宏会尝试录制某些内容。

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

以下是3D选项的类

 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

查找ThreeDFormat- Excel-Help中的对象，以获取所有可能的设置。这不是3D样式的图表，而是3D样式的系列;)要获得与preset2相同的结果，只需在preset2系列的格式对话框中查找格式更改。