NEEDED | GreyScale Setting Macro

I have some ppts, about 100 slides each. All is fine, but when is previwed in
Black and White, the content is not seen in preview, not getting printed. All
blank in black and white..... Now I'm going to ViewGreyscaleselect the
objects in each slideand change the setting to greyscale. Then I can see the
content getting printed/previwed. If the deck is small, it is fine, but if it
is like 100 slides and many files, then what?, changing the setting for each
slide is time taking. I tried recording a macro, but it applies to particular
slide, because I have selected one slide. Can anyone please change the below
code to apply for the entire deck? I will drag that to a toolbar and in one
click the entire deck will be changed to B/W setting
Sub GreyscaleSetting()
ActiveWindow.BlackAndWhite = msoTrue
ActiveWindow.Selection.SlideRange.Shapes.SelectAll
ActiveWindow.Selection.ShapeRange.BlackWhiteMode = msoBlackWhiteGrayScale
ActiveWindow.BlackAndWhite = msoFalse
ActiveWindow.BlackAndWhite = msoTrue
ActiveWindow.Selection.Unselect
End Sub

_________________
Thanks a lot

In article , Pavankumar
wrote:
I have some ppts, about 100 slides each. All is fine, but when is previwed in
Black and White, the content is not seen in preview, not getting printed. All
blank in black and white..... Now I'm going to ViewGreyscaleselect the
objects in each slideand change the setting to greyscale. Then I can see the
content getting printed/previwed. If the deck is small, it is fine, but if it
is like 100 slides and many files, then what?, changing the setting for each
slide is time taking. I tried recording a macro, but it applies to particular
slide, because I have selected one slide. Can anyone please change the below
code to apply for the entire deck? I will drag that to a toolbar and in one
click the entire deck will be changed to B/W setting
Sub GreyscaleSetting()
ActiveWindow.BlackAndWhite = msoTrue
ActiveWindow.Selection.SlideRange.Shapes.SelectAll
ActiveWindow.Selection.ShapeRange.BlackWhiteMode = msoBlackWhiteGrayScale
ActiveWindow.BlackAndWhite = msoFalse
ActiveWindow.BlackAndWhite = msoTrue
ActiveWindow.Selection.Unselect
End Sub

This should do it:

Sub GreyscaleSetting()
Dim oSl As Slide
Dim oSh As Shape

For Each oSl In ActivePresentation.Slides
For Each oSh In oSl.Shapes
With oSh
.BlackWhiteMode = msoBlackWhiteGrayScale
End With
Next
Next
End Sub



-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================