Excel VBAでpptのアクティブスライド

質問

Excel VBAで、pptのスライドショー実行中のアクティブスライド番号を取得するコードを教えてください。
編集中のスライド番号を取得する方法は、検索して探し出したのですが、
スライドショー実行中での方法がわかりません。
Excelのセルにある値を、pptのテキストボックスに代入するプログラムを作成したいので、pptのVBAではなく、ExcelのVBAで実現させたいです。

回答No.1

misatoanna · ベストアンサー

[参照設定]で Microsoft Powerpoint XX.0 Object Library にチェックを入れておいて、Excelの標準モジュールに以下を記述します。

スライドショー実行中に、書き込みたいスライドが表示されている状態で実行すると、指定テキストボックスにセルA1のデータを書き込みます。

Sub Test()
　　Dim ppAp As New PowerPoint.Application
　　Dim mypp As PowerPoint.Presentation
　　Set mypp = ppAp.Presentations(ppAp.Windows(1).Presentation.Name)
　　With mypp.SlideShowWindow.View.Slide
　　　　.Shapes("TextBox 2").TextFrame.TextRange.Text = Cells(1, 1).Value
　　End With
End Sub