VBA激活如圖不同的功能

Question

說，我有一個函數創建圖表創建圖表：

Sub CreateChart() 

Dim sh As Worksheet 
Dim chrt as Chart 

Set sh = ActiveWorkbook.Worksheets("Sheet1") 
Set chrt = sh.Shapes.AddChart.Chart 

End Sub 

如何激活這個圖表中不同的功能，我想將它移動到一個特定的細胞？我正在使用下面的代碼，但它一直給我錯誤，並不會激活圖表。我甚至給圖表一個標題，並試圖使用它的標題t激活它，但它不會識別名稱：

Sub MoveChart() 

ActiveSheet.ChartObjects("chrt").Activate 
With ActiveChart.Parent 
.Left = Range("N2").Left 
End With 

Answer 1

爲什麼激活它？您可以直接使用您的存儲對象CHRT，您可以傳遞到參數化MoveChart子程序：

Sub MoveChart(ByVal chrt As Excel.Chart) 

     With chrt.Parent 
       .Left = Range("N2").Left 
     End With 

End Sub 

與現在你可以移動任何圖表你想要的差別。

後來編輯

因爲圖表仍不願透露姓名的第二個宏失敗。試圖通過VBA變量的名稱訪問圖表並不能解決問題。所以，試試這個：

Sub CreateChart() 

      Dim chrt As Shape 

      With ActiveWorkbook.Worksheets("Sheet1").Shapes 
        Set chrt = .AddChart() 
        Let chrt.Name = "New chart" 
      End With 

    End Sub 

    Sub MoveChart() 

      With ActiveWorkbook.Worksheets("Sheet1") 
        .ChartObjects("New chart").Left = .Range("N2").Left 
      End With 

    End Sub 

不要忘了修改代碼以使用其他圖表名，其他工作表名稱等