January 21st, 2009, 08:31 AM
|
|
Experienced Member
|
|
First recorded activity by OfficeFrustration: Jul 2005
Posts: 34
|
|
I've come as far as:
For i = 1 To nSlides
With ActivePresentation.Slides(i)
.FollowMasterBackground = msoFalse
.DisplayMasterShapes = msoTrue
With .Background
.Fill.Visible = msoTrue
.Fill.ForeColor.RGB = RGB(cRed, cGreen, cBlue)
.Fill.Transparency = 0#
.Fill.Solid
End With
End With
cRed = cRed + ((txtRedLast.Value - txtRedFirst.Value) / (nSlides - 1))
cGreen = cGreen + ((txtGreenLast.Value - txtGreenFirst.Value) / (nSlides - 1))
cBlue = cBlue + ((txtBlueLast.Value - txtBlueFirst.Value) / (nSlides - 1))
Next
But is there any way to "smooth" the gradient?
Quote:
Originally Posted by Bill Dilworth
This could be done with a simple VBA routine to "count" the slides, then
adjust the color scale for each RGB value to the fraction of the
presentation, then apply it to the slide background (not the template).
You would just need to run the routine whenever the number or location of
slides changed.
Do you code? Do you code VBA? Do you code PowerPoint VBA?
Bill Dilworth
[/i][/color]
|
|