Prev: Problems with code
Next: Convert PowerPoint to Video
From: a1k1do via OfficeKB.com on 26 May 2010 12:48
I can add a named shape "copywrite" to any slide and with these two modules..
any time i mouse over the afore mentioned shape I get the desired message.
Super!

Question 1: can i simply compile this as an addin to save me writing these
modules in each presentation?

Question 2: If so why won't it compile?

Im just aiming to have this addin and anytime i have any presentation running
with shape "copywrite" i get the message.

Thanks in advance for any thoughts.

Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)

Dim CurSlideInd As Long
With ActivePresentation.SlideShowWindow.View
CurSlideInd = .Slide.SlideIndex
With ActivePresentation.Slides(CurSlideInd)
.Shapes("copywrite") = (ppMouseOver)
.Action = ppActionRunMacro
.Run = "mymessage"
.AnimateAction = True
End With
End Sub
-------------------------------------------
Sub mymessage()
MsgBox "this is copywrite protected chaps"
End Sub

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/powerpoint/201005/1

 | 
Pages: 1
Prev: Problems with code
Next: Convert PowerPoint to Video