Sub chColor(Obj1, R1, G1, B1, Optional Steps = 20)
  Const dt# = 0.02
  With Obj1
    decRGB = .Fill.ForeColor.RGB
    B = Int(decRGB / 65536)
    decRGB = decRGB - B * 65536
    G = Int(decRGB / 256)
    R = decRGB - G * 256
    If R = R1 And G = G1 And B = B1 Then Exit Sub
    RStep = (R - R1) / Steps
    Gstep = (G - G1) / Steps
    Bstep = (B - B1) / Steps
    For i = 1 To Steps
            R = R - RStep
            G = G - Gstep
            B = B - Bstep
            With .Fill
            .Visible = msoTrue
            .ForeColor.RGB = RGB(R, G, B)
            .Transparency = 0
            .Solid
        End With
      t = Timer + dt
      While Timer < t:  Wend
      DoEvents:
    Next
    DoEvents
  End With
End Sub