Question

我一直在尝试使用VBA宏来设置我的两个传说。

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

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

如何使用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

Answer 1

请将.SetSourceData method的行更改为此行：

ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("b6:c6," & "b" & x & ":c" & x)

设置图例文本饼图

1 个答案: