VBA添加具有系列名稱的數據標籤到氣泡圖

Question

我有一個宏，它將數據標籤添加到氣泡圖中。此代碼非常適合提供Y軸的值，現在我想將其更改爲顯示SeriesName。

Sub AddDataLabels() 

Dim bubbleChart As ChartObject 
Dim mySrs As Series 
Dim myPts As Points 

With ActiveSheet 
    For Each bubbleChart In .ChartObjects 
     For Each mySrs In bubbleChart.Chart.SeriesCollection 
      Set myPts = mySrs.Points 
      myPts(myPts.Count).ApplyDataLabels Type:=xlShowValue 
     Next 
    Next 
End With 

End Sub 

我嘗試改變

myPts(myPts.Count).ApplyDataLabels Type:=xlShowValue 

分爲：

myPts(myPts.Count).ApplyDataLabels Type:=xlShowSeriesName 

但它給了我一個 '無效的過程調用或參數'。

有關如何更改代碼以顯示SeriesName而不是Y軸值的任何建議？

Screenshot

Answer 1

添加With語句下面我的代碼你的代碼中，並調整根據自己的需要裏面的參數。

在下面的代碼Daralabels將顯示SeriesName，但不是類別或值。

Sub AddDataLabels() 

Dim bubbleChart As ChartObject 
Dim mySrs As Series 
Dim myPts As Points 

With ActiveSheet 
    For Each bubbleChart In .ChartObjects 
     For Each mySrs In bubbleChart.Chart.SeriesCollection 
      Set myPts = mySrs.Points 

      myPts(myPts.Count).ApplyDataLabels 

      With myPts(myPts.Count).DataLabel 
       .ShowSeriesName = True 
       .ShowCategoryName = False 
       .ShowValue = False 
       ' optional parameters 
       .Orientation = 0 
       .Font.Size = 10 
       .Font.Bold = True 
      End With 

     Next 
    Next 
End With 

End Sub 

Answer 2

這是否適合您？

bubbleChart.ApplyDataLabels xlDataLabelsShowLabel