Добавление действия макроса через VBA сбрасывает временную шкалу анимации

Question

У меня есть фигура, которая имеет анимацию входа и запускает следующий макрос при нажатии:

With ActivePresentation.Slides(m).Shapes("XYZ").ActionSettings(ppMouseClick)
    .Action = ppActionNone
    .AnimateAction = True
End With

Как только я нажимаю кнопку, она исчезает и анимация сбрасывается. Мне нужно нажать кнопку «Далее» в представлении презентации, чтобы он снова вошел в слайд.

Я попытался удалить строку .AnimateAction = True, но это не дало положительного результата. Я попробовал .Visibility = True, но форма была видна, слайд только что сбросил всю анимацию.

Как мне удалить все макросы , связанные с этой кнопкой, по ее нажатию, но также убедиться, что шкала времени анимации не сброшена .

Answer 1

Call SlideShowWindows(1).View.GotoClick(msoClickStateAfterAllAnimations)

Позвольте вашей временной шкале анимации сброситься. Затем пусть воспроизводятся все анимации.