VBA图表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