OpenOffice.org コミュニティーフォーラム

はじめまして、IMPRESSのマクロでPowerpointからの移行を行っています。
色々なサイトを見て試してみましたがうまく動いてくれません。

どなたかご教授お願い致します。

「SlideShow中に任意の図形をClickする事でPage移動するMacro作成」を実現したいです。

元々Powerpoinntで任意の画像をクリックしてページ移動をさせて表示すると言うことを
SlideShowWindows(Index:=1).View.GotoSlideを使ってやっていました。

現在のマクロは以下のとおりになります。

画像の右クリックでオブジェクトの動作設定（マクロの実行）
マクロ:vnd.sun.star.script:Standard.Module1.action000?language=Basic&location=document

Sub action000()
Call Slide_page(2)
End Sub

Function Slide_page(iToSlide)
Dim oDoc As Object
Dim oPage
oDoc = ThisComponent
oPage = oDoc.getDrawPages().getByIndex(iToSlide)
End Function

大変恐縮ですが、よろしくお願いします。

Slide_pageの返値に何を想定されているのかが、判りませんでしたので、スライド実行中を返してみました。

参考
http://hermione.s41.xrea.com/pukiwiki/i ... esentation

MoIshihara 様

早速の返信ありがとうございます。
記載頂きましたコードで実行したら思ったとおりの動きが出来ました。

ありがとうございました。

貴重なスペースありがとうございました。