VBA绘制标普500收益图，如何更改簇状柱形图样式？

我编写了一个用于抓取标普500（S&P500）收益数据的VBA宏，希望通过簇状柱形图进行数据可视化。但设置ChartType = xlColumnClustered后得到的图表样式并非我所需，且找不到切换图表类型样式的相关文档。

以下是我的VBA代码：

Sub CreateChart()
    Dim ws As Worksheet
    Dim lastRow As Long

    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Dim dataRange As Range
    Set dataRange = ws.Range("A3:B" & lastRow)
    Dim chartSheet As Worksheet
    Set chartSheet = ThisWorkbook.Sheets.Add(After:=ws)
    
    ' 定义图表对象
    Dim myChart As ChartObject
    Set myChart = chartSheet.ChartObjects.Add(Left:=10, Width:=375, Top:=10, Height:=225)
    myChart.Chart.SetSourceData Source:=dataRange
    myChart.Chart.ChartType = xlColumnClustered
    myChart.Chart.HasTitle = True
    myChart.Chart.ChartTitle.Text = "年度收益"
    myChart.Chart.Axes(xlCategory, xlPrimary).HasTitle = True
    myChart.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Text = "年份"
    myChart.Chart.Axes(xlValue, xlPrimary).HasTitle = True
    myChart.Chart.Axes(xlValue, xlPrimary).AxisTitle.Text = "收益"
End Sub

当前生成的图表为默认基础样式：柱形为纯色蓝色填充，无渐变、阴影等额外样式效果，布局简洁但不符合预期。

内容的提问来源于stack exchange，提问作者C_Turbo