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

VBA图表3D旋转

1 个答案: