Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1908
  • 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
 
RartemassAuthor, martial arts coach, IT ConsultantCommented:
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
 
RartemassAuthor, martial arts coach, IT ConsultantCommented:
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
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
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

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

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