Examples:
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