0

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

因此，我正在尝试做与以下帖子类似的事情 如何使用 VBA 将 ShapeStyle 应用于 Excel 中的特定图表系列？

但是我正在尝试将形状效果应用于图表系列。手动获得形状效果，我希望您必须选择图表中的系列，然后选择图表工具 > 格式 > 形状效果 > 预设 > 预设 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

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

4

1 回答 1

0

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

Chart.ApplyLayout(1)

使用您之前定义的 Diagrammlayoutpreset。

或者使用这个：

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

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

于 2012-09-25T16:04:28.147 回答