PowerPoint (全般)

PowerPoint 全般に関する話題を扱うフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : PowerPoint 2013)
Powerpoint2013スライドショー実行時のユーザーフォーム表示について
投稿日時: 17/01/23 13:21:40
投稿者: ちょん

Powerpoint2013でスライドショーを自動実行するためにppsm形式のファイルで保存し、VBAで作成したユーザーフォームを起動時に最初から表示したいのですが、表示できません。
作成中のpptm形式でメニューからスライドショーを実行すると、表示できます。
 
メイン側画面(PC側)のユーザーフォームで表示するスライド内容を指定して、拡張画面側でそのスライドを表示したいので、VBAで次のように作成したのですが、どちらもうまくいきません。
 
アドバイスをお願いします。
 
------------
Sub OnSlideShowPageChange(ByVal ss As SlideShowWindow)
    Dim n As Long
    n = ss.View.CurrentShowPosition
    If n = 1 Then
      UserForm1.Show
    End If
End Sub
------------
 
------------
Public WithEvents PPTApp As Application
 
Private Sub PPTApp_SlideShowBegin(ByVal Wn As SlideShowWindow)
    UserForm1.Show
End Sub
-------------

回答
投稿日時: 17/01/23 14:17:23
投稿者: んなっと

例えばスライドマスタの左上、少し外にはみ出したあたりに
ラベルなどのActiveXコントロールを目立たないように配置してみてください。
自動実行されるようになると思います。

投稿日時: 17/01/23 15:33:47
投稿者: ちょん

表示することができました。
ありがとうございました。