QP School
Create a chart from data with VBA - Printable Version

+- QP School (https://qomplainerzschool.lima-city.de)
+-- Forum: Tutorials (https://qomplainerzschool.lima-city.de/forumdisplay.php?fid=3)
+--- Forum: Excel VBA Tutorials (https://qomplainerzschool.lima-city.de/forumdisplay.php?fid=48)
+--- Thread: Create a chart from data with VBA (/showthread.php?tid=5255)



Create a chart from data with VBA - Qomplainerz - 07-27-2023

Example:

Sub CreateChart()
    Dim chartSheet As Worksheet
    Dim dataSheet As Worksheet
    Dim chartObj As ChartObject
    Dim chartRange As Range

    'Set the data sheet where the chart data is located
    Set dataSheet = ThisWorkbook.Sheets("Sheet1")

    'Set the range of data for the chart (adjust the range as per your data)
    Set chartRange = dataSheet.Range("A1:B5")

    'Create a new worksheet to place the chart
    Set chartSheet = ThisWorkbook.Sheets.Add

    'Create the chart as a column chart on the new worksheet
    Set chartObj = chartSheet.ChartObjects.Add(Left:=50, Width:=375, Top:=75, Height:=225)
    With chartObj.Chart
        .SetSourceData Source:=chartRange
        .ChartType = xlColumnClustered
    End With
End Sub

Explanation:

The code defines a subroutine named CreateChart.
It declares variables for the chart sheet (chartSheet), data sheet (dataSheet), chart object (chartObj), and chart data range (chartRange).
Set dataSheet = ThisWorkbook.Sheets("Sheet1") specifies the worksheet ("Sheet1") where the chart data is located.
Set chartRange = dataSheet.Range("A1:B5") sets the range of data for the chart (adjust the range as per your data).
A new worksheet (chartSheet) is created to place the chart using ThisWorkbook.Sheets.Add.
The chart is created as a column chart on the new worksheet using chartSheet.ChartObjects.Add. 
The chart dimensions and position are adjusted using the Left, Width, Top, and Height parameters.
The chart source data is set to chartRange using .SetSourceData Source:=chartRange.
The chart type is set to a clustered column chart using .ChartType = xlColumnClustered.