VBAのExcel 2013のクラスタ化された縦棒グラフ

Question

私はEXCEL VBAを使用して2行のデータから新しいグラフを作成しています。 Excelのバージョンは2013です。

X軸には年があり、Y軸には年ごとに特定の値があります。

私が直面している問題は、実際のチャートを作成するときに、以下のスクリーンショットに示すように、3つのスタイルのいずれかをランダムに選択するということです。

私はチャートを作成しています：Sheets(SheetsName)を追加するための

ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select 
ActiveChart.SetSourceData Source:=Union(Sheets(SheetName).Range(Cells(1, 11), Cells(1, LastColumnNumber)), Sheets(SheetName).Range(Cells(4, 11), Cells(4, LastColumnNumber))) 

理由は、それが参照を維持するために必要ですので、私は、それを作成した後に新しいシートにグラフを移動していたという事実です。

LastColumnNumberは、1年前の列をカウントするために使用され、対応する値です。

私が試してみました：スタイルを変更するとき

ActiveChart.ChartType = xlColumnClustered 

はまた、私は新しいマクロの記録を試行しましたが、何のパラメータは、回避策として、これらの3

のいずれかを選択はありません（ただし、VBAでは機能しません）、グラフスタイルをクラスター化列のスタイルに変更して、必要なものを選択し直します。

P.S.実際に添付されている印刷画面で選択したものが必要です。

どうすればそのスタイルを適用できますか？コンテキストは、以下を参照してください

Chart.PlotBy = xlRows 

：

Chart.PlotBy = xlColumns 

またはこの：私はそれを理解したよう

Answer 1

、あなたはこれを必要とする

Sub InsertBar(myRange As Range) 

    Dim rngChart As Range 
    Dim myChart As Chart 

    Sheets(Operator.Value).Range("$A$10:$C$10").Select 
    Set myChart = ActiveSheet.Shapes.AddChart(xlColumnClustered, 500, 10, , 175).Chart 

    With myChart 
     .PlotBy = xlColumns 
     .ChartArea.Format.TextFrame2.TextRange.Font.Size = 8 
     .HasTitle = True 
     .ChartTitle.Text = "Title" 
     .SeriesCollection(1).Name = Range("B" & StartRow - 1).Value 
     .SeriesCollection(2).Name = Range("C" & StartRow - 1).Value 
    End With 
End Sub