Chart.ChartType (Word)

Returns or sets the chart type.

Some chart types are not available for PivotChart reports.

With ActiveDocument.InlineShapes(1).Chart 
 If .ChartType = xlBubble Then 
 .ChartGroups(1).BubbleScale = 200 
 End If 
End With