Pen Colors

[curt]

I use the inking commands often. I also change pen colors hundreds of times
during the creation of a document, but I only use red, green, blue, and
black. Is it possible to create a Macro that will allow me to change pen
colors with a single click?

 

[Glen Millar]

Hi Curt,

You can do this with code such as posted below. You would have to refine it
(split it out into different colors). I'm sure someone else can refine it,
as I don't currently have time. Why not run a macro yourself and change the
pen settings, then look at the code in the VBA editor (Alt + F11)?

With ActivePresentation.SlideShowSettings
.ShowType = ppShowTypeSpeaker
.LoopUntilStopped = msoFalse
.ShowWithNarration = msoTrue
.ShowWithAnimation = msoTrue
.RangeType = ppShowAll
.AdvanceMode = ppSlideShowUseSlideTimings
.PointerColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
.Run
End With
SlideShowWindows(Index:=1).View.PointerType = ppSlideShowPointerPen
SlideShowWindows(Index:=1).View.PointerType = ppSlideShowPointerArrow
SlideShowWindows(Index:=1).View.Exit
End Sub


--

Regards,
Glen Millar
Microsoft PPT MVP

Tutorials and PowerPoint animations at
the original www.pptworkbench.com
glen at pptworkbench dot com