Gets the Type of the Property
Syntax:
Property Get Type() As cdrTexturePropertyType
Remarks:
The Type property returns the type (numeric or color) of a property of a texture fill. This property returns a read-only value of cdrTexturePropertyType.
Examples:
The following VBA example displays detailed information about the texture fill of a selected shape, including a list of its parameters and their values.
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 ss 
End Sub