Object Model Reference : Classes : S : ShapeRange : Methods : ShapeRange.AddRange
|
|
| Object Model Reference : Classes : S : ShapeRange : Methods : ShapeRange.AddRange |
Sub AddRange(ShapeRange As ShapeRange)
Member of ShapeRange
The AddRange method adds a specified shape range to the current range.
The following VBA example finds all the 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 |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.