Code To Insert Chart And Delete Charts Using VBA

[jeff]

Please see attached sample workbook

There are 3 information sets which I require a chart for each set.

I want to be able to use code to see the 3 sets of data and then with button selection insert the charts ( like the chart position /stylein workbook attached)

There also is a button to delete the Charts

Best Regards

Jeff

[Excel Fox]

Are you saying that you will have 3 sets of data, and on the click of a button, you want 3 charts to be prepared. The position of the chart will be based on where the data set is?

[jeff]

Yes thank you
Jeff

[Excel Fox]

Jeff, here's one code. I'm sure you can replicate this for all the other charts.



Sub AddChart()

With ActiveSheet.Shapes.AddChart
.Width = 544.5: .Height = 171.25: .Left = 291
With .Chart
.SetSourceData Source:=Range("Sheet1!$B$21:$E$23")
.ChartType = xlColumnClustered
.Legend.Delete
.Axes(xlValue).Delete
.Axes(xlValue).MajorGridlines.Delete
.SeriesCollection(1).ApplyDataLabels
End With
With ActiveSheet.ChartObjects(.Name).Border
.Color = 0
.LineStyle = 1
.Weight = 2.6
End With
End With

End Sub


And the code to delete all charts in the active sheet is
Activesheet.ChartObjects.Delete

[jeff]

ExcelFox
Thanks for the code to create & delete charts.
Is it best to place the code using Insert Module or is it best to place in Sheet Module
As I only have 1 sheet I inserted into Module and it works
Regards
Jeff