Font.Color (PowerPoint)

Returns or sets the color of the current Font object.

Dim cftColor As ColorFormat
Set cftColor = ActivePresentation.Fonts(1).Color