차트 VBA의 writting 값 (바)

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 

을 사용하여 코드 메신저가된다 이 그래프의 바? 메신저 실제로 그래프를 엑셀로 텍스트 상자를 추가하는 일을하고 난 그래프가 자동화되어 있기 때문에, 매크로 throught를 추가하고 싶은 때마다 매크로를 변경 될 수 있습니다하면 데이터는 각 시리즈를 꾸몄다에 레이블 추가 할 필요가

Answer 1

활성화 :

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

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