Скрытие фигур внутри следующих слайдов - PullRequest
Новая
       10

Скрытие фигур внутри следующих слайдов

0 голосов
/ 25 мая 2018

Это, наверное, очень просто.У меня есть 10 слайдов с множеством форм.Каждый слайд имеет форму под названием «AAA»:

  • Я перехожу в режим слайд-шоу
  • Я щелкаю форму AAA на любом слайде.Форма AAA внутри текущего слайда исчезает.
  • Все "фигуры A" из следующих слайдов тоже исчезают.
  • Все фигуры отличаются от фигуры AAA, остаются без изменений.

Как мне это кодировать?Я очень ценю вашу помощь.

1 Ответ

0 голосов
/ 26 мая 2018

Сначала я определил V50 как общедоступную переменную, затем я использовал это:

(я использовал анимацию, чтобы пропустить кнопку, и установил этот макрос для запуска при щелчке фигуры AAA)

Sub LL50 ()

V50 = 1

End Sub

Затем я обнаружил этот фрагмент кода для запуска при смене слайдов:

Sub OnSlideChange () 

Dim i As Integer
i = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
If i <> 1 Then Exit Sub

Если V50 = 1, то

ActivePresentation.Slides (ActiveWindow.View.Slide.SlideNumber + 1) .Shapes ("AAA").Visible = False

Конец, если

Конец суб

...