はじめまして、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
大変恐縮ですが、よろしくお願いします。
PowerPointからのマクロ移行について
-
- 記事: 337
- 登録日時: 6月 21, 2010, 6:52 am
Re: PowerPointからのマクロ移行について
Slide_pageの返値に何を想定されているのかが、判りませんでしたので、スライド実行中を返してみました。
参考
http://hermione.s41.xrea.com/pukiwiki/i ... esentation
参考
http://hermione.s41.xrea.com/pukiwiki/i ... esentation
コード: 全て選択
Sub action000()
Call Slide_page(2)
End Sub
Function Slide_page(iToSlide) As Boolean
Dim oPre As Object
Dim Result As Boolean
oPre = ThisComponent.Presentation
Result = oPre.isRunning
if Result then
oPre.Controller.gotoSlideIndex(iToSlide)
end if
Slide_page = Result
End Function
Re: PowerPointからのマクロ移行について
MoIshihara 様
早速の返信ありがとうございます。
記載頂きましたコードで実行したら思ったとおりの動きが出来ました。
ありがとうございました。
貴重なスペースありがとうございました。
早速の返信ありがとうございます。
記載頂きましたコードで実行したら思ったとおりの動きが出来ました。
ありがとうございました。
貴重なスペースありがとうございました。
OpenOffice 3.1 on Windows XP