Bulk Chart Creation

[friendlyfan]

Hello. When making charts in Excel, does anyone know whether there is a way to input Source Data (e.g. Name and Values) in bulk rather than manually inputting ranges one-by-one? I have a spreadsheet that has all of the ranges for all my series. I also have a chart template. Thanks in advance for your help!

 

[jolivanes]

This is from Mr Aaron Blood's answer to a similar request. If you want the workbook, let me know and I can PM it to you (If Mr Aaron Blood does not mind). I guess we can't attach workbooks.

Option Explicit

Sub Chart_Pics()
    
    Dim n As Integer, i As Integer
    Dim ChgCell As Range, OutCell As Range
    Dim AllCharts As ShapeRange
    
    Set AllCharts = ActiveSheet.ChartObjects.ShapeRange
    AllCharts.Select
    
    Set ChgCell = Range("VBA_ChgCell")
    Set OutCell = Range("VBA_OutCell")

    n = Range("VBA_n").Value
    
    Call Del_Pics

    For i = 1 To n
        ChgCell.Value = i
        AllCharts.Select
        Selection.CopyPicture _
            Appearance:=xlScreen, _
            Format:=xlPicture
        OutCell.Offset((i - 1) * 14, 0).Select
        Selection.Offset(1, -1).Value = i
        ActiveSheet.Paste
    Next i
    
    ChgCell.Value = 1

End Sub

Sub Del_Pics()
    Dim shp As Shape, r As Long, c As Long, OutCell As Range
    
    For Each shp In ActiveSheet.Shapes
        If shp.Name Like "Picture*" Then
            shp.Delete
        End If
    Next shp
    
    Set OutCell = Range("VBA_OutCell")
    r = OutCell.Row
    c = OutCell.Column - 1
    Range(Cells(r, c), Cells(65536, c)).ClearContents
    
End Sub

Regards and thanks to Aaron Blood
John[/code]

 

[friendlyfan]

Thanks for the input! I have never done any programming in Excel so I do not know how to use this information but I appreciate your assistance very much. Yes, I would like the workbook so I can learn how it is put together. I have a lot of learning to do. Any other suggestions on learning would be appreciated.