使用活動工作表中的單元格值命名圖表

Question

我在工作簿中有幾張工作表。每張表格包含具有相同格式的測試結果。我想創建一個宏，它在每張工作表中創建一個圖表，只繪製來自該工作表的數據。這一步我已經得到了：

Sub Macro() 
    Dim sSheetName As String 
    sSheetName = ActiveSheet.Name 
    Sheets(sSheetName).Select 
    Range("G7:I5241").Select 'range to plot 
    Range("K7").Select 'location of plot 
    ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmoothNoMarkers).Select 'select plot type 
    ActiveChart.SeriesCollection.NewSeries 
    ActiveChart.FullSeriesCollection(1).Name = "='sSheetName'!R1C2" 'attempting to name the plot by a cell value in the active sheet 

但是，最後這句話是不是成功地創造活動工作表的鏈接單元R1C2。

截圖：

任何想法？

Answer 1

您使用的字符串中的名稱分配文字：

ActiveChart.FullSeriesCollection(1).Name = "='sSheetName'!R1C2" 

除非你有一個工作表「sSheetName」，這將失敗，果然。做到這一點，而不是：

ActiveChart.FullSeriesCollection(1).Name = "='" & sSheetName & "'!R1C2" 

它使用您以前分配給您的變量sSheetName

值