プレゼンテーション 
Impress のドキュメントのプレゼンテーションを取り扱います。
プレゼンテーション中にスライド上の図形描写オブジェクトを変更しようとしてもうまくいきません。ページの切り替え操作が入るのであれば変更が描写されますが、それ以外の場合、現在のバージョンでは解決方法はありません。
プレゼンテーションオブジェクト
プレゼンテーションオブジェクトを取得する必要があります。getPresentation メソッドを使用します。
Sub presentation_1
Dim oDoc As Object
Dim oPre As Object
oDoc = ThisComponent
oPre = oDoc.getPresentation()
End Sub
プレゼンテーションを開始するには start メソッドを使用します。また，プレゼンテーションを終了するには end メソッドを使用します。
Sub presentation_2
Dim oDoc As Object
Dim oPre As Object
oDoc = ThisComponent
oPre = oDoc.getPresentation()
oPre.start()
wait 10000
oPre.end()
End Sub
これらのメソッドを使用することで簡単にプレゼンテーションを開始することが出来ます。
プレゼンテーションのプロパティ
| プロパティ | 型 | 説明 |
| AllowAnimations | boolean | アニメーションを許可 |
| CustomShow | string | カスタムスライドショー名 |
| Display | long | ディスプレイ ID |
| FirstPage | string | 空でないとき、最初のページ名 |
| IsAlwaysOnTop | boolean | 常にトップに |
| IsAutomatic | boolean | 自動実行 |
| IsEndless | boolean | 繰り返し実行 |
| IsFullScreen | boolean | フルスクリーンモード |
| IsMouseVisible | boolean | マウス表示 |
| IsShowAll | boolean | |
| IsShowLogo | boolean | 最終ページにロゴを表示 |
| IsTransitionOnClick | boolean | クリックで移動 |
| Pause | long | 自動実行時の間隔 |
| StartWithNavigator | boolean | ナビゲータの表示 |
| UsePen | boolean | ペンの利用 |
カスタムスライドショー
独自に定義した順序でスライドを表示するプレゼンテーションを構成、設定します。
Sub CustomPresentation
sCustomName = "Custom1"
oDoc = ThisComponent
oDrawPages = oDoc.getDrawPages()
oCustomPresentations = oDoc.getCustomPresentations()
oPresen = oCustomPresentations.createInstance()
oPresen.insertByIndex(0, oDrawPages.getByIndex(0))
oPresen.insertByIndex(1, oDrawPages.getByIndex(2))
oPresen.insertByIndex(2, oDrawPages.getByIndex(1))
oCustomPresentations.insertByName(sCustomName, oPresen)
oDoc.getPresentation().CustomShow = sCustomName
End Sub
スライドショーコントローラ
スライドショーコントローラ参照。
