在vba中绘制图表时出现问题

Sub CreateChart()
    Dim ws As Worksheet
    Dim chtObj As ChartObject
    
    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 创建图表对象
    Set chtObj = ws.ChartObjects.Add(Left:=100, Top:=100, Width:=375, Height:=225)
    
    ' 设置图表类型
    With chtObj.Chart
        .ChartType = xlColumnClustered ' 柱状图
        .SetSourceData Source:=Range("A1:B5") ' 设置数据源
        .HasTitle = True
        .ChartTitle.Text = "示例图表"
    End With
End Sub

SetSourceData Source:=Range("A1:B5")

.ChartType = xlColumnClustered ' 柱状图

chtObj.Chart.ApplyChartTemplate ( _
    "C:\Path\To\Your\Template.chartx")