I need to copy the gradient of a slide's background fill from one slide to another.
The properties of the source gradient may be read as follows:
Function ShowGradientProperties(oSld as Slide)
Dim counter as Integer
For counter = 1 to .Count
Debug.Print counter, .Item(counter).Color
Debug.Print counter, .Item(counter).Position
Debug.Print counter, .Item(counter).Transparency
Now, when copying gradient properties, the gradient has to be added first using the GradientStops.Insert
method. PowerPoint 2010 added a second Insert2
method which added the Brightness
property for each gradient stop.
oSld.Background.Fill.GradientStops.Insert2 RGB, Position, [Transparency], [Index], [Brightness]
But, Brightness is not available in the slide's GradientStops object model so how is it possible to read the source gradient's Brightness?