Macro changing the pen width and the pen color

[Guest]

I am using PowerPoint 2003 with a Motion Tablet-PC and Windows XP Tablet PC
Edition 2005. During the presentation I need to write comments and drawings
in the slide. I wrote VBA 6.0 macros (with command buttons) to be able to
change the color of the pen quickly. For instance following macro creates a
(thick) red pen:

Private Sub CommandButtonRed_Click()
With ActivePresentation.SlideShowSettings.Run.View
.PointerColor.RGB = RGB(255, 0, 0)
.PointerType = ppSlideShowPointerPen
End With
End Sub

Questions:
How can I write a macro creating a thin pen (1/2 point or 1 point)?
How can I write a macro creating an highlighter pen?

In VBA 6.0 I do not recognize the appropriates commands.

Does somebody have an idea? Thank you very much for your help.

Sir Joe

NB: Why do I not use the popup menu of PowerPoint? Because it needs to much
time. For instance to create a pink highlighter I need 5 mouse clicks. With a
command button I need only 1 click.

 

[Austin Myers]

I believe there are only three options for the pen width;

ppSlideShowPointerPen = 1, 2 or 3 and that corresponds to pen, marker, and
highlighter.


Austin Myers
MS PowerPoint MVP Team

Provider of PFCMedia, PFCPro, PFCExpress
http://www.pfcmedia.com

 

[Guest]

Tank you for your answer. ppSlideShowPointerPen is a constant. Her value is
2. The variable ppSlideShowPointerType can assume different values, one of
these is "ppSlideShowPointerPen" (= 2). This value produces a pen marker.
The other values are 0 (no pointer), 1 (arrow), 3 (hidden), 4 (autoarrow), 5
(eraser). There is no value for a "thin pen" of for an "highlighter".

However I am sure, there must be a solution: PowerPoint offers these
features in his own popup menu (which handling is too laborious for my
purpose).

I think I need some add-in or API or DLL-Library or whatever else, but I
have big troubles finding the right tool.

Any idea? Thank you for your help.

Sir Joe

 

[Austin Myers]

Oops, you are right, this only sets the type. From what I can see, that
part of the object model is not available. Maybe someone else has an idea.


Austin Myers
MS PowerPoint MVP Team

Provider of PFCMedia, PFCPro, PFCExpress
http://www.pfcmedia.com