Анимация GIF в Powerpoint, когда курсор мыши находится над ним

Question

Мне было интересно, есть ли какой-нибудь способ, которым я мог бы написать в Powerpoint 2010 VBA небольшую программу, которая анимирует gif, когда над ним наведен курсор мыши.

Answer 1

Не совсем, но вы можете написать макрос, который делает одно изображение видимым, когда вы наводите курсор мыши на другую фигуру.

Поэтому добавьте фигуру любого вида, например, это может быть не анимированная версия анимированного GIF. Назначьте ему настройку Action при наведении курсора на Run Macro: ShowMe

Сначала добавьте это в свою презентацию:

Sub ShowMe()
' Edit this to change the slide number as needed and to 
' change "Picture 1" to the actual name of the animated gif
ActivePresentation.Slides(1).Shapes("Picture 1").Visible = True
End Sub

Затем используйте панель выбора, чтобы сделать анимированный GIF невидимым.

Вы можете поместить немного большую фигуру за обеими фигурами и установить ее действие при наведении курсора на макрос HideMe, который аналогичен ShowMe, но установлен .Visible = False

Когда курсор находится над формой триггера ShowMe, анигиф становится видимым; когда курсор перемещается за пределы gif, он падает на фигуру HideMe, которая запускает второй макрос и снова скрывает GIF.