In diesem Beispiel wird die Blasengröße in der Diagrammgruppe 1 auf 200% der Standardgröße gesetzt, wenn es sich beim Diagramm um ein 2D-Blasen-Diagramm handelt.
With Worksheets(1).ChartObjects(1).Chart If .ChartType = xlBubble Then .ChartGroups(1).BubbleScale = 200 End If End With