VBA图3D旋转

我想知道如果有人可以帮我一个我正在工作的VBAmacros。 我只是select一个未格式化的图表，并做一些简单的格式。 默认情况下，它是一个普通的饼图。 我试图把它变成一个三维饼图，并分别将X和Y的旋转angular度改为50度和30度。 我已经使用Excellogging了macros，但由于某些原因，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