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

プレゼンテーション (Impress) について
返信する
naundz
記事: 2
登録日時: 8月 30, 2010, 1:55 pm

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

投稿記事 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

大変恐縮ですが、よろしくお願いします。
OpenOffice 3.1 on Windows XP
MoIshihara
記事: 337
登録日時: 6月 21, 2010, 6:52 am

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

投稿記事 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
naundz
記事: 2
登録日時: 8月 30, 2010, 1:55 pm

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

投稿記事 by naundz »

MoIshihara 様

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

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

貴重なスペースありがとうございました。
OpenOffice 3.1 on Windows XP
返信する

“Impress”に戻る