Shape.Properties

Property Properties As Properties

Member of Shape

The Properties property returns the Properties collection, which allows you to specify and manipulate custom data associated with the given shape. Data stored using the Properties collection is not accessible to the CorelDRAW user and can be retrieved only programmatically.

You can use this property as an advanced way of storing custom data with a shape. See also the ObjectData property.

The Properties property returns a read-only value.

The following code example stores all uniform fill colors with each shape so that the fill can be restored later:

Sub StoreFills() 
 Dim s As Shape 
 Dim c(0 To 7) As Long, i As Long 
 For Each s In ActivePage.Shapes 
  If s.Fill.Type = cdrUniformFill Then 
   s.Fill.UniformColor.CorelScriptGetComponent c(0), c(1), c(2), 
c(3), c(4), c(5), c(6), c(7) 
   For i = 0 To 7 
    s.Properties("StoredFillColor", i) = c(i) 
   Next i 
  End If 
 Next s 
End Sub