Series.MarkerSize (Word)

Returns or sets the data-marker size, in points.

This property can have a value from 2 through 72.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.SeriesCollection(1).MarkerSize = 10 
 End If 
End With