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 sEnd Sub