Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
Function ShowGradientProperties(oSld as Slide) Dim counter as Integer With oSld.Background.Fill.GradientStops For counter = 1 to .Count Debug.Print counter, .Item(counter).Color Debug.Print counter, .Item(counter).Position Debug.Print counter, .Item(counter).Transparency Next End With End Function
oSld.Background.Fill.GradientStops.Insert2 RGB, Position, [Transparency], [Index], [Brightness]
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.