は、私が3にグラフのスタイルを変更するchart.chartstyle = 3を使用し、それでも優れている、以下

-1

が私のコードであるは、私が3にグラフのスタイルを変更するchart.chartstyle = 3を使用し、それでも優れている、以下

Public Sub createdonutchart(Chartrange1 As String, chartrange2 As String, L1 As Integer, T1 As Integer, W1 As Integer, H1 As Integer, targetsheet As Worksheet, charttitle As String) 

     Dim oChart As Excel.Chart 
     Dim MyCharts As Excel.ChartObjects 
     Dim MyCharts1 As Excel.ChartObject 
     MyCharts = targetsheet.ChartObjects 
     MyCharts1 = MyCharts.Add(L1, T1, W1, H1) 
     oChart = MyCharts1.Chart 

     With oChart 
      Dim chartRange As Excel.Range 
      chartRange = targetsheet.Range(Chartrange1, chartrange2) 
      .SetSourceData(chartRange) 
      .PlotBy = Excel.XlRowCol.xlColumns 
      .ChartType = Excel.XlChartType.xlDoughnut 
      .ChartStyle = 3 
      .ApplyDataLabels(Excel.XlDataLabelsType.xlDataLabelsShowNone) 
      .HasLegend = True 
      .Legend.Position = Excel.XlLegendPosition.xlLegendPositionRight 
      .HasTitle = True 
      .ChartTitle.Text = charttitle 
     End With 

    End Sub

をExcelのグラフのスタイルを設定できませんでした基本的なチャートスタイルとチャートを示し、添付画像を参照してください。