Previous Document Next Document

Object Model Reference : Classes : T : TextureFill : Properties : TextureFill.TextureName


TextureFill.TextureName

Property TextureName As String

Description

Member of TextureFill

The TextureName property returns the name of a texture-fill pattern.

The TextureName property returns a read-only value.

VBA example

The following VBA example displays the names of the texture-pattern fill and the texture library for each texture fill found in the drawing.

Sub Test()
 Dim s As Shape
 Dim tf As TextureFill
 Dim ss As String
 Dim r As VbMsgBoxResult
 For Each s In ActivePage.Shapes
  If s.Fill.Type = cdrTextureFill Then
   Set tf = s.Fill.Texture
   s.CreateSelection ' Select the shape
   ss = "Texture Name: " & tf.TextureName & vbCr & "Library Name: "
   If tf.LibraryName = "" Then
    ss = ss & "Styles"
   Else
    ss = ss & tf.LibraryName
   End If
   ss = ss & vbCr & "Style Name: " & tf.StyleName & vbCr
   ss = ss & vbCr & "Press OK to continue"
   r = MsgBox(ss, vbOKCancel)
   If r = vbCancel Then Exit For
  End If
 Next s
End Sub

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.