Hatena::Groupvbscript

PowerPoint.Application

主要な Windows 標準コンポーネントの一覧 → http://vbscript.g.hatena.ne.jp/keyword/ProgID
VBScript 基礎文法最速マスター → http://vbscript.g.hatena.ne.jp/cx20/20100131/1264906231

PowerPoint.Application

PowerPoint.Application

概要

PowerPoint.ApplicationPowerPoint アプリケーション オブジェクトを表す ProgID です。

PowerPoint アプリケーション オブジェクトは、通常、PowerPointオートメーション操作する場合に使用します。

サンプル

' File : Make9x9TableByPowerPoint.vbs
' Usage : CScript //Nologo Make9x9TableByPowerPoint.vbs
' Description : VBScript から PowerPoint を使用して「九九表」を作成するサンプル
Option Explicit

Call Main()

Sub Main()
    Dim ppt
    Set ppt = CreateObject("PowerPoint.Application")
    ppt.Visible = True
    
    Dim pre
    Set pre = ppt.Presentations.Add
    Dim slide
    Set slide = pre.Slides.Add(1, 12)   ' Const ppLayoutBlank = 12
    Call slide.Shapes.AddTable(9, 9)

    Dim tbl
    Set tbl = slide.Shapes(1).Table
    Call Make9x9Table(tbl)
End Sub

Sub Make9x9Table(tbl)
    Dim x
    Dim y
    For y = 1 To 9
        For x = 1 To 9
            tbl.Cell(y, x).Shape.TextFrame.TextRange.Text = x * y
        Next
    Next
End Sub
実行結果
123456789
24681012141618
369121518212427
4812162024283236
51015202530354045
61218243036424854
71421283542495663
81624324048566472
91827364554637281

参考情報