Add Method (ColorSchemes Collection Object) Example
This example adds a new color scheme to the collection of standard color schemes for the active presentation. The new color scheme is based on the colors used in slide two in the active presentation.
With ActivePresentation
Set newClrScheme = .Slides(2).ColorScheme
.ColorSchemes.Add newClrScheme
End With