TextureFill.Resolution

Property Resolution As Long

Member of TextureFill

The Resolution property returns or sets the resolution of a texture-fill pattern in pixels per inch.

The following code example applies a texture to a rectangle and displays the texture’s resolution:

Sub Test() 
 Dim s As Shape 
 Dim tf As TextureFill 
 Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4) 
 Set tf = s.Fill.ApplyTextureFill("Circuit board", "Samples 6") 
 MsgBox "Texture resolution: " & tf.Resolution 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.