TextureFill.TextureName

Property TextureName As String

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

The TextureName property returns a read-only value.

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

End Sub