VBA Powerpoint: что такое VBA эквивалентно «гиперссылке на другую презентацию Powerpoint»? - PullRequest
Новая
       46

VBA Powerpoint: что такое VBA эквивалентно «гиперссылке на другую презентацию Powerpoint»?

0 голосов
/ 20 марта 2019

Я хочу использовать несколько слайд-шоу (в режиме киоска, если это возможно), чтобы иметь возможность переходить между ними, не возвращаясь в режим редактирования ... Нет проблем сделать это с формами и «гиперссылкой на другую презентацию PowerPoint». Но мне нужно сделать это также в макросах VBA, на некоторых слайдах. Например, после того, как тест закончен, перейдите к другому слайдшоу и заданному слайду и выделите фокус на этом слайдшоу: Какой будет код? Я не могу сосредоточиться на новом окне слайдшоу ... Я полагаю, что это эквивалентно тому, что делает гиперссылка на другую презентацию PPT, но я не могу этого сделать. Заранее большое спасибо!

Alex

1 Ответ

0 голосов
/ 20 марта 2019

Этот код открывает презентацию, переходит к слайду № 5 и запускается в режиме киоска 

Dim PowerPointApp As PowerPoint.Application
Dim myPPT As PowerPoint.Presentation

'Open the Slideshow
Set myPPT = PowerPointApp.Presentations.Open(FileName:="filename.pptx")

Application.ActivePresentation.SlideShowSettings.ShowType = ppShowTypeKiosk

'You need this to work
ActivePresentation.SlideShowWindow.View.Exit
ActivePresentation.SlideShowSettings.Run

'Goto Slide number 5
myPPT.Windows(1).View.GotoSlide 5

'Start Slide Show
myPPT.SlideShowSettings.Run
...