• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 2078
  • Last Modified:

Powerpoint Macro to change pointer color

Hello,

Is there a way to write a macro that would change the pointer color, in presentation mode? The idea would be to assign the macro to a hotkey and switch the pointer's colors. The process of switching the pointer color, while presenting, is tedious and distracting. I am happy to do all the work, I just have no idea where to start. Is there some example code I could look at somewhere? I am using Powerpoint 2011 on Mac OS X 10.7

Many Thanks!
0
Jason Watkins
Asked:
Jason Watkins
  • 10
  • 9
  • 2
1 Solution
 
RartemassService Desk AnalystCommented:
Do you want to switch the colour of the mouse pointer or the colour of the highlight when you are drawing on the presentation?

I'm not sure if there is code for this but will investigate and test.

In the meantime you can try the following alternatives:

You can quickly change to the pen pointer to draw on the screen by pressing ctrl+p (command+p on Mac).
This should be a default of red. Press Esc to return to the mouse pointer. These options only work when the presentation is running.
This may bypass your issue.

You can also try enabling the option in your mouse settings to show its location when pressing the ctrl key. This will show a large circle that reduce in size to the tip of the pointer befre fading. This is on the pointer options tab in the mouse properties in Windows, I'm not sure if this is an option on the Mac though.
0
 
RartemassService Desk AnalystCommented:
This may help with changing the mouse pointer to another icon:
http://msdn.microsoft.com/en-us/library/office/bb237557(v=office.12).aspx
0
 
JSRWilsonCommented:
If you mean the pen colour
You can use:
SlideShowWindows(1).View.PointerColor.RGB = RGB(0, 0, 255)

I have a PC so not sure this can be assigned to a hotkey on a Mac - It can't on a PC.
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

 
Jason WatkinsIT Project LeaderAuthor Commented:
I would like to change the color of the pen (highlight) that is used while presenting. The code:

Sub BluePen()
SlideShowWindows(1).View.PointerColor.RGB = RGB(0, 0, 255)
End Sub

Does not run and produces an error code.

Thanks for the suggestions thus far.
0
 
JSRWilsonCommented:
Are you trying the code in show mode? It will only run in this mode (not edit)

If so what is the error message.

In edit mode you can change the default

ActivePresentation.SlideShowSettings.PointerColor.RGB = RGB(0, 0, 255)
0
 
Jason WatkinsIT Project LeaderAuthor Commented:
I tried running it from within the VBA editor. Not sure how to attach the macro to a keyboard combo or button. The error is attached.

Many thanks!...
0
 
JSRWilsonCommented:
As I said it cannot be run in that mode there are no SlideShowWindows - Hence SlideShowWindows Unknown Member!

You must run in show mode or use the alternative code I posted.
0
 
Jason WatkinsIT Project LeaderAuthor Commented:
OK. Thanks. How would I activate the macro from the presentation session?
0
 
JSRWilsonCommented:
On a PC you would add a shape as a button and give it an action of run macro. On a Mac - no idea.
0
 
Jason WatkinsIT Project LeaderAuthor Commented:
I've added a button to the toolbar, but can't see how to attach a macro to it, or how to access that button from the presentation itself.
0
 
JSRWilsonCommented:
I meant add a shape to the slide.

Demo
0
 
Jason WatkinsIT Project LeaderAuthor Commented:
I was able to get that done, it is just the Macro that won't manipulate the pen's color. It will not even write at this point and a single mouse click just advances the slide instead of actually drawing.

Thanks for the help
0
 
JSRWilsonCommented:
Did you try the simple demo??
0
 
Jason WatkinsIT Project LeaderAuthor Commented:
Yes. Same deal. The pointer turns into a pen, but does not write. Thanks.
0
 
JSRWilsonCommented:
Try this then
DEMO2
0
 
Jason WatkinsIT Project LeaderAuthor Commented:
No, sorry. Is this working for you on your end?
0
 
JSRWilsonCommented:
It is but on a PC!
0
 
Jason WatkinsIT Project LeaderAuthor Commented:
Ok. I am trying this on a Mac (PPT 2011)
0
 
JSRWilsonCommented:
I'm sure I don't have to ask but you ARE holding down the mouse button when you "write"??
0
 
Jason WatkinsIT Project LeaderAuthor Commented:
Yes. I am holding the mouse button down in an effort to write. That action advances the show to the next slide.
0
 
Jason WatkinsIT Project LeaderAuthor Commented:
Thanks for all of the help with the question
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 10
  • 9
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now