VBA Chart 3D旋转

Question

我想知道是否有人可以帮助我处理我正在使用的VBA宏。我只是选择一个未格式化的图表并进行一些简单的格式化。默认情况下，它是一个常规的饼图。我正在尝试将其制作成3D饼图，并将X和Y旋转分别更改为50度和30度。我已经使用Excel记录了宏，但由于某些原因3D旋转不起作用。所有其他格式都完美无缺；只有这是行不通的。关于我应该如何进行的任何想法？谢谢

Sub Macro2()
ActiveSheet.ChartObjects("Topic Breakdown by Priority").Activate
ActiveChart.ChartType = xl3DPieExploded
ActiveChart.PlotArea.Select
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Topic Breakdown by Priority").ThreeD.RotationX = -50
ActiveSheet.Shapes("Topic Breakdown by Priority").ThreeD.RotationY = 30
End Sub

Answer 1

您需要为图表设置适当的引用。根据您的代码，它应该这样：

ActiveSheet.Shapes("Topic Breakdown by Priority").Chart.ChartArea.Format.ThreeD.RotationX = -50
ActiveSheet.Shapes("Topic Breakdown by Priority").Chart.ChartArea.Format.ThreeD.RotationY = 30