Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Add Chart Sheet

Option Explicit Public Sub AddChartSheet()   Dim aChart As Chart   Set aChart = Charts.Add   With aChart     .Name = "Mangoes"     .ChartType = xlColumnClustered     .SetSourceData Source:=Sheets("Sheet1").Range("A3:D7"), PlotBy:=xlRows     .HasTitle = True     .ChartTitle.Text = "=Sheet1!R3C1"   End With End Sub