ページ 11

PowerPointからのマクロ移行について

投稿記事Posted: 8月 30th, 2010, 2:02 pm
by naundz
はじめまして、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

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

Re: PowerPointからのマクロ移行について

投稿記事Posted: 8月 31st, 2010, 12:22 am
by MoIshihara
Slide_pageの返値に何を想定されているのかが、判りませんでしたので、スライド実行中を返してみました。

参考
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からのマクロ移行について

投稿記事Posted: 8月 31st, 2010, 12:36 am
by naundz
MoIshihara 様

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

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

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