ShapeRange.AddRange

Sub AddRange(ShapeRange As ShapeRange)

The AddRange method adds a specified range of shapes to the current range.


Parameters	Description
ShapeRange	Specifies the range that is added to the current range

The following code example finds all ellipses and rectangles on a page, and it then fills the shapes with a radial fountain fill:

Sub Test() 
 Dim sr As ShapeRange 
 Set sr = ActivePage.FindShapes(Type:=cdrEllipseShape) 
 sr.AddRange ActivePage.FindShapes(Type:=cdrRectangleShape) 
 sr.ApplyFountainFill CreateRGBColor(255, 0, 0), 
CreateRGBColor(255, 255, 0), cdrRadialFountainFill 
End Sub