The Code I have so far is:
Sub DisappearOnClick
dim Doc as object
dim controllerCurrent as object
dim selectionCollection as object
dim selectedItem as object
doc = ThisComponent
controllerCurrent = doc.CurrentController
selectionCollection = controllerCurrent.Selection()
selectedItem = selectionCollection(0)
selectedItem.Effect = com.sun.star.presentation.AnimationEffect.HIDE
End Sub
What I would love to be able to do is finish this off by setting the animation to occur when I click on the same object. I know this can be done by hunting through menus and setting the animation trigger.
Can I set this animation trigger using a macro?
Cheers
Mark