Sub Test() Dim s As Shape Dim tf As TextureFill Dim prop As TextureFillProperty Dim ss As String, i As Long 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 i = 1 To tf.Properties.Count Set prop = tf.Properties(i) 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 i MsgBox ssEnd SubSub Test() Dim s As Shape Dim tf As TextureFill Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2) Set tf = s.Fill.ApplyTextureFill("Dark Cloud", "Samples 8") tf.Properties("Texture #:").Value = 78End Sub