Adding data labels with series name to bubble chart
<p>I have a macro which adds the data labels in a bubble chart. This code provides the value of the Y axis.</p>

<p>I would like to show the SeriesName instead.</p>

<pre><code>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
</code></pre>

<p>I tried changing</p>

<pre><code>myPts(myPts.Count).ApplyDataLabels Type:=xlShowValue
</code></pre>

<p>Into:</p>

<pre><code>myPts(myPts.Count).ApplyDataLabels Type:=xlShowSeriesName
</code></pre>

<p>It gives me</p>

<blockquote>
  <p>'Invalid procedure call or argument'</p>
</blockquote>

<p>How can I change the code to display the SeriesName instead of the Y axis value?</p>

<p>Screenshot</p>

<p><img src="https://i.stack.imgur.com/jLQqQ.jpg" alt="Screenshot"></p>