OOobbs3/47
質問
グラフを挿入した際に、凡例の項目が用意された色の数を超えると繰り返してしまいます。 全て別の色にしたいのですが、どうすれば良いのでしょうか? 回答
Sub ChangeSeriesColor oSheets = ThisComponent.Sheets oObj_1 = oSheets.getByIndex(0) oCharts = oObj_1.Charts oObj_2 = oCharts.getByIndex(0) oEmbeddedObject = oObj_2.EmbeddedObject oFirstDiagram = oEmbeddedObject.FirstDiagram oCoordinateSystems = oFirstDiagram.CoordinateSystems oObj_3 = oCoordinateSystems(0) oChartTypes = oObj_3.ChartTypes oObj_4 = oChartTypes(0) oDataSeries = oObj_4.DataSeries oSeries = oDataSeries(0) oSeries.Color = RGB(255, 0, 0) End Sub
感想,コメント,メモ
|