VBA добавляет метки данных с именем серии в пузырьковую диаграмму

Question

У меня есть макрос, который добавляет метки данных в пузырьковую диаграмму. Этот код отлично работает для обеспечения значения оси Y, и теперь я хотел бы изменить это, показывая имя серии.

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