Sub Test() Dim s As Shape Dim tf As TextureFill Dim prop As TextureFillProperty Dim ss As String Set s = ActiveShape If s Is Nothing Then MsgBox "Nothing selected" Exit Sub End If If s.Fill.Type <> cdrTextureFill Then MsgBox "Select a shape with texture fill" Exit Sub End If Set tf = s.Fill.Texture 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 & "Parameter: " For Each prop In tf.Properties ss = ss & vbCr & prop.Name & " " If prop.Type = cdrTexturePropertyNumeric Then ss = ss & prop.Value Else ss = ss & "Color(" & prop.Value.Name(True) & ")" End If Next prop MsgBox ssEnd Sub