NEEDED | GreyScale Setting Macro

P

pavankumar

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 View>Greyscale>select the
objects in each slide>and 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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Converting from Powerpoint to MS word using "send to" 2
Help with a macro 1
VBA - (re-) Set a Table Style 2
Why is text visible before the on-click effect takes place? 3
Question re. use of animation rebuild VBA 7
Saving individual slides to greyscale, sized Jpegs or wmfs? 0
Powerpoint Macro to save (export) individual images to files - 'cept... doesn't work! 7
saving powerpoint presentation as wmf (or jpeg) in pp2003, as greyscale 0

Top