Pen Colors

  • Thread starter Thread starter curt
  • Start date Start date
C

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?
 
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
 
Back
Top