在VBA中使用動態命名範圍進行散點圖標記

Question

我試圖製作一個宏，它將將散點圖上的數據標籤更改爲每個點的標題。例如：

Example chart http://www.wiseowl.co.uk/blog/s130/i2.gif

在這種情況下，我想數據標籤，以顯示電影標題。我使用的代碼來自this website，但我的散點圖有兩個系列的數據。我想使用動態命名範圍來告訴宏名稱所在單元格的範圍，在我的代碼中，動態命名範圍是FONames & BONames。這裏是我的代碼：

Sub CreateDataLabels() 
'holds the entire film data series in the chart 
Dim FilmDataSeries As Series 
Dim FilmDataSeries2 As Series 
'holds one cell at a time 
Dim SingleCell As Range 
'holds the full list of cells containing film names 
Dim FilmList As Range 
Dim FilmList2 As Range 
'keeps track of which datapoint we're labelling 
Dim FilmCounter As Integer 
Dim FilmCounter2 As Integer 
'The sheet in which the graph is on 
Dim ws As Worksheet 
Set ws = Worksheets("Datos Gráfico") 

'set the counter to start at 1 
FilmCounter = 1 
FilmCounter2 = 1 

'set a reference to the cells containing the list of films 
Set FilmList = Range("FONames") 
Set FilmList2 = Range("BONames") 

'set a reference to the chart data series 
Set FilmDataSeries = ws.ChartObjects(1).Chart.SeriesCollection(1) 
Set FilmDataSeries2 = ws.ChartObjects(1).Chart.SeriesCollection(2) 

'make sure data labels are turned on 
FilmDataSeries.HasDataLabels = True 
FilmDataSeries2.HasDataLabels = True 

'loop over the cells in the list of films 
For Each SingleCell In FilmList 
    FilmDataSeries.Points(FilmCounter).DataLabel.Text = SingleCell.Value 
    FilmCounter = FilmCounter + 1 
Next SingleCell 

For Each SingleCell In FilmList2 
    FilmDataSeries2.Points(FilmCounter2).DataLabel.Text = SingleCell.Value 
    FilmCounter2 = FilmCounter2 + 1 
Next SingleCell 

End Sub 

我得到一個1004錯誤，說明指定的維度無效。當我用實際範圍的單元格替換FONames或BONames時，例如。範圍（「A5」，「A11」），一切正常。我如何在代碼中使用這些動態命名範圍？

Answer 1

動態命名範圍的定義是什麼？我定義了列A的命名範圍，如下所示：

=OFFSET(Sheet1!$A$1,1,0,COUNTA(Sheet1!$A:$A)-1,1) 

它工作得很好。

Answer 2

例如：

'--------------------------------------------------------------------------- 
' In order to add label at scatter graph. You must selected a graph before. 
' @param void 
'--------------------------------------------------------------------------- 
Sub add_label_on_graph() 
    Dim Counter As Integer 
    Dim xVals As String 
    Dim reponse As Integer 

    If ActiveChart Is Nothing Then 
     reponse = MsgBox("Attention, vous devez au préalable sélectionner un graphique avant de lancer cette commande.", vbExclamation, "Information") 
     Exit Sub 
    End If 

    Application.ScreenUpdating = False 

    ' Récupération de la range des données que l'on stocke dans la variable xVals. 
    xVals = ActiveChart.SeriesCollection(1).Formula 
    xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, Mid(Left(xVals, InStr(xVals, "!") - 1), 9))) 
    xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1) 
    Do While Left(xVals, 1) = "," 
     xVals = Mid(xVals, 2) 
    Loop 

    ' Ajoute un label à chaque point du graphique 
    For Counter = 1 To Range(xVals).Cells.Count 
     ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = True 
     ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.text = Range(xVals).Cells(Counter, 1).Offset(0, -1).Value 
    Next Counter 

    Application.ScreenUpdating = True 
End Sub