Fade To Grey

Suppose you would like all your color pictures in a presentation to switch to greyscale. This code will do that!

NOTE pre 2007 photo albums are really picture filled shapes and the code will not work in this case. It will work with 2007 albums.

Don't know how to use code see here

'Code starts here

Sub fade_to_grey()
Dim oshp As Shape
Dim osld As Slide
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoPicture Then
oshp.PictureFormat.ColorType = msoPictureGrayscale
End If
Next oshp
Next osld
End Sub

Back to the Index Page

POWERPOINT BLOG

Articles on your favourite sport

Free Microsoft PowerPoint Advice, help and tutorials, Template Links
This website is sponsored by Technology Trish Ltd
© Technology Trish 2007
Registered in England and Wales No.5780175
PowerPoint® is a registered trademark of the Microsoft Corporation