expression.ShowBubbleSize
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
The chart must first be active before you can access the data labels programmatically.
Example
This example enables the bubble size to be shown for the data labels of the first series on the first chart.
Sub UseBubbleSize()
ActiveSheet.ChartObjects(1).Activate
ActiveChart.SeriesCollection(1) _
.DataLabels.ShowBubbleSize = True
End Sub