チャート上のVBA足す値（バー）

Question

これは、すべての上にこれらの値をプロットするとにかくこれは、予想されるグラフ

ある

Dim ejex As String, ejey As String 
Dim graficos As String 
Worksheets("Sheet1").Activate 

ejex = "C" + CStr(cont) + ":" + "C" + CStr(conta) 
ejey = "K" + CStr(cont) + ":" + "N" + CStr(conta) 

graficos = ejex & "," & ejey 

Dim rng As Range 
Dim cht As Object 

Set rng = ActiveSheet.Range(graficos) 
Set cht = ActiveSheet.Shapes.AddChart 

cht.Chart.SetSourceData Source:=rng 

に使用してコードIMあるありますこのグラフの棒グラフ？イムは、実際にそれがグラフ上でExcelとテキストボックスを追加することと私はグラフが自動化されるため、マクロthroughtそれらを追加したいと毎回マクロを変えるかもしれないと、あなたは、データは各シリーズをプロットにラベル追加する必要があり

Answer 1

有効です。

... 
cht.Chart.SetSourceData Source:=rng 

Dim ser As Series 
For Each ser In cht.Chart.FullSeriesCollection 
    ser.ApplyDataLabels 
Next