2010年4月27日火曜日

ScriptomとPower Pointで線の始点の矢印の長さを設定する

ScriptomとPower Pointで線の始点の矢印の長さを設定するには、以下のコードを実行します。

import org.codehaus.groovy.scriptom.*;
import org.codehaus.groovy.scriptom.tlb.office.*;
import org.codehaus.groovy.scriptom.tlb.office.powerpoint.*;

Scriptom.inApartment
{
ppa = new ActiveXObject("PowerPoint.Application")
ppa.Presentations.Open(new File("test1.pptx").canonicalPath,
Scriptom.MISSING, Scriptom.MISSING, MsoTriState.msoFalse)
// 線を描画する
slide = ppa.Presentations(1).slides(1)
shape = slide.Shapes.AddLine(100, 200, 620, 200)
// 線の色
shape.Line.ForeColor.RGB = 0x0000ff /* BGR*/
// 始点を矢印に設定
shape.Line.BeginArrowheadStyle = MsoArrowheadStyle.msoArrowheadTriangle
shape.Line.Weight = 10
// 始点の矢印のながさ
shape.Line.BeginArrowheadLength = MsoArrowheadLength.msoArrowheadLong

ppa.Presentations(1).saveAs(new File("test25.pptx").canonicalPath)
ppa.Presentations(1).close()
ppa.quit()
}


元プレゼンテーション(test1.pptx)


出力プレゼンテーション(test25.pptx)
ScriptomとPower Pointで線の始点の矢印の長さを設定したスライド

動作環境
groovy1.7.0, JDK6 Update18, PowerPoint 2007

0 件のコメント:

コメントを投稿