Can I set an object to animate when I click on it using a macro?

asked 2017-03-22 22:56:20 +0200

markc1986 gravatar image

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

edit retag flag offensive close merge delete