| Name | Type | Description |
|---|---|---|
| Texture |
String
|
|
| Library |
String
|
Sub Test() Dim s As Shape Dim tf As TextureFill For Each s In ActivePage.Shapes If s.Fill.Type = cdrTextureFill Then Set tf = s.Fill.Texture If tf.LibraryName <> "" Then tf.Select tf.StyleName End If End If Next s End Sub