Hatena::Groupuwsc

PowerPoint.Application

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

PowerPoint.Application

PowerPoint.Application

概要

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

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

サンプル

// File : Make9x9TableByPowerPoint.uws
// Description : UWSC から PowerPoint を使用して「九九表」を作成するサンプル
Option Explicit

Main()

Procedure Main()
    Dim ppt
    ppt = CreateOleObj("PowerPoint.Application")
    ppt.Visible = True
    
    Dim pre
    pre = ppt.Presentations.Add
    Dim slide
    slide = pre.Slides.Add(1, 12)   // Const ppLayoutBlank = 12
    slide.Shapes.AddTable(9, 9)

    Dim tbl
    tbl = slide.Shapes(1).Table
    Make9x9Table(tbl)
Fend

Procedure 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
Fend
実行結果
123456789
24681012141618
369121518212427
4812162024283236
51015202530354045
61218243036424854
71421283542495663
81624324048566472
91827364554637281

参考情報