0

VBA マクロを使用して 2 つの凡例を設定しようとしています。

円グラフの 2 つの凡例を 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 に答える