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