Adding a Legend to the Chart : Chart Lengend « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Chart Lengend

Adding a Legend to the Chart

 
Sub legend()
    Dim myChartObject As ChartObject
    Set myChartObject = ActiveSheet.ChartObjects.Add(Left:=200, Top:=200, _
        Width:=400, Height:=300)
    
    myChartObject.Chart.SetSourceData Source:= _
        ActiveWorkbook.Sheets("Chart Data").Range("A1:E5")
    
    myChartObject.SeriesCollection.Add Source:=ActiveSheet.Range("C4:K4"), Rowcol:=xlRows
    myChartObject.SeriesCollection.NewSeries
    With myChartObject.Legend
        .HasLegend = True
        .Font.Size = 16
        .Font.Name = "Arial"
    End With
End Sub

 

Related examples in the same category