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)
  slide.Background.Fill.Patterned(
    MsoPatternType.msoPatternSphere)
  slide.Background.Fill.ForeColor.RGB = 0xffddbb /* BGR*/
  slide.Background.Fill.BackColor.RGB = 0xffffff /* BGR*/

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

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


出力プレゼンテーション(test15.pptx)


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