こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

投稿日時 - 2017-10-30 23:35:46

QNo.9391937

困ってます

質問者が選んだベストアンサー

[参照設定]で 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

投稿日時 - 2017-10-31 15:40:45

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問