0

我一直在尝试使用 VBA 宏设置我的两个图例。

我想在我的饼图上将我的两个图例从 1 和 2 更改为男性和女性。

我可以通过将“类别（X）轴标签”设置为“=Sheet1！$B$6:$C$6”（即男性和女性）在“选择数据源”对话框中手动更改它

但是，我如何使用 VBA 做到这一点？

这是我的代码...

Sub Pie()

    For X = 7 To 13
        Charts.Add
        ActiveChart.ChartType = xlPie
        ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("b" & X & ":c" & X)
        ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
        ActiveChart.HasTitle = True
        CellVal = Worksheets("Sheet1").Range("A" & X).Value

        ActiveChart.ChartTitle.Text = "History statistics of " & CellVal

    Next X

End Sub
4

1 回答 1

1

请把这一行.SetSourceData method改成这一行：

ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("b6:c6," & "b" & x & ":c" & x)
于 2013-08-01T21:44:36.613 回答