Sub Test() With ActiveShape.Fill.Fountain ActiveLayer.CreateEllipse2 .StartX, .StartY, 0.2 ActiveLayer.CreateEllipse2 .EndX, .EndY, 0.2 End WithEnd Sub