Object Model Reference : Classes : S : ShapeRange : Methods : ShapeRange.ApplyTextureFill
|
|
| Object Model Reference : Classes : S : ShapeRange : Methods : ShapeRange.ApplyTextureFill |
Sub ApplyTextureFill(TextureName As String, [LibraryName As String])
Member of ShapeRange
The ApplyTextureFill method applies a specified texture fill to all the shapes in a shape range.
|
Parameter
|
Description
|
|
TextureName
|
Specifies the texture-fill pattern
|
|
LibraryName
|
Specifies the texture-fill library for the texture-fill pattern. This parameter is optional.
|
The following VBA example applies a texture fill to each shape that has an Overprint fill.
Sub Test() |
Dim sr As New ShapeRange |
Dim s As Shape |
For Each s In ActivePage.Shapes |
If s.OverprintFill Then sr.Add s |
Next s |
sr.ApplyTextureFill "Cement", "Samples 8" |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.