excel - 使用 VBA 创建图表，然后使其成为活动图表

Question

我有以下代码来生成面积图

Sub Create_Area_Chart()

    Worksheets("My_Sheet").Activate
    
    Dim rng As Range
    Dim cht As ChartObject
    Dim rng1 As Range
    
    Set rng1 = Union(Range("D13:BU13"), Range("C15:BU22"))
    rng1.Select
    'Create a chart
    
    Set cht = ActiveSheet.ChartObjects.Add( _
        Left:=ActiveCell.Left, _
        Width:=450, _
        Top:=ActiveCell.Top, _
        Height:=250)
    
    'Give chart some data
      cht.Chart.SetSourceData Source:=rng1
    
    End Sub

基本上，一旦我创建了图表，我想做的就是选择图表并按下“切换行/列”按钮。

我正在查看它并被告知我可以使用以下代码执行此操作

Sub Macro1()
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.PlotBy = xlColumns
   End Sub

我的问题是我不知道刚刚创建的图表的名称。所以我想知道是否有办法获取我刚刚生成的图表的名称，或者是否有办法让它成为我的活动图表，这样我就可以使用上面粘贴的代码。

标签： excelvba