Как изменить в VBA с одного типа xlColumnStacked на другой xlColumnStacked?

Question

Я пытаюсь запустить график, который требует макета, который не является основным в Excel.По-видимому, они имеют один и тот же тип диаграммы, хотя макет совсем другой.

Public nome_grafico As String
Public nome_planilha_grafico As String
Public numeroTermicas As Integer




Sub cria_grafico()

    Dim graf_ativo As String

    nome_planilha_grafico = ActiveSheet.Name

    numeroTermicas = Worksheets(nome_planilha_grafico).Cells(1, 6).Value

    Worksheets(nome_planilha_grafico).Range(Cells(2, 1), Cells(numeroTermicas + 1, 2)).Select
    ActiveSheet.Shapes.AddChart2(297, xlColumnStacked).Select
    ActiveChart.SetSourceData Source:=Worksheets(nome_planilha_grafico).Range(Cells(2, 1), Cells(numeroTermicas + 1, 2))
    ActiveChart.ChartType = xlColumnStacked

    graf_ativo = ActiveChart.Name
    nome_grafico = Right(graf_ativo, (Len(graf_ativo) - (Len(nome_planilha_grafico) + 1)))

End Sub