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 sEnd Sub