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

プレゼンテーション (Impress) について

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

投稿記事by naundz » 8月 30th, 2010, 2:02 pm

はじめまして、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

大変恐縮ですが、よろしくお願いします。
OpenOffice 3.1 on Windows XP
naundz
 
記事: 2
登録日時: 8月 30th, 2010, 1:55 pm

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

投稿記事by MoIshihara » 8月 31st, 2010, 12:22 am

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
MoIshihara
 
記事: 337
登録日時: 6月 21st, 2010, 6:52 am

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

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

MoIshihara 様

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

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

貴重なスペースありがとうございました。
OpenOffice 3.1 on Windows XP
naundz
 
記事: 2
登録日時: 8月 30th, 2010, 1:55 pm


Return to Impress

オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[1人]

cron