0

我想知道是否有人可以帮助我处理我正在处理的 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
4

1 回答 1

5

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

ActiveSheet.Shapes("Topic Breakdown by Priority").Chart.ChartArea.Format.ThreeD.RotationX = -50
ActiveSheet.Shapes("Topic Breakdown by Priority").Chart.ChartArea.Format.ThreeD.RotationY = 30
于 2013-05-29T21:08:28.067 回答