Code To Insert Chart And Delete Charts Using VBA

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

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?

Yes thank you
Jeff

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

Code:

---

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

Code:

---

Activesheet.ChartObjects.Delete

---

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