Как обновить мастер слайдов из режима слайд-шоу и обновить текущий слайд с помощью VBA?

Question

Я пытаюсь иметь счетчик на всех слайдах презентации PowerPoint. Счетчик должен управляться кнопкой во всех слайдах, которая увеличивает его.

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

Код, который не обновляется в режиме слайд-шоу:

ctr = ctr + 1
ActivePresentation.Designs(1).SlideMaster.Shapes("Counter").TextFrame2.TextRange.Text = ctr

Код, который работает (но применяется только к одному слайду, а не ко всем слайдам в презентации):

ctr = ctr + 1
ActivePresentation.Slides(1).Shapes("Counter").TextFrame2.TextRange.Text = ctr

Спасибо!

Answer 1

Как насчет просто вставить ‹Nr.› В текстовое поле без VBA. Это обновится автоматически.

Или просто нажмите SlideNumber на вкладке «Вставка» в строке меню, когда курсор находится в текстовом поле.