使用名稱框對圖表進行順序標記

Question

如果我在文件中有很多圖表，並且我最終想將它們全部導出爲帶有VBA代碼的圖像。如果圖表沒有給出「圖表標題」，​​VBA會將圖表保存在「名稱框」名稱下。問題是，如果我有很多圖表，而不是他們的順序標籤，我需要按順序放回。例如，想要有名稱爲chart1，chart2，chart3的圖表......

簡單的VBA是否可以一次更改所有的名稱？如果您有100多個圖表，那麼手動更改每個圖標都非常耗時。

問候，加斯珀

Answer 1

可以訪問使用Sheet對象的Shape.Chart性的片的每一個圖。

要更改表內的每個圖表的名稱，使用這個宏：

Sub SetChartTitle() 
    Dim s As Shape 
    Dim i as integer 
    i = 1 

    For Each s In Sheets("Sheet1").Shapes 
     If s.HasChart Then 
      s.Name = "mychart" & i ' set the chart name 
      i = i + 1 
     End If 
    Next s 
End Sub 

你甚至可以使用這個循環到所有的圖表輸出與s.Chart.Export