PowerPointの図形の位置や大きさを揃えるVBScript

これは

PowerPointのスライド上に配置した複数の図形について、
位置や大きさを揃えたい場合に使用するVBScriptです。

作成の経緯

これまでは資料作成といえばExcelだったのですが、
（それはそれでどうなんだというはなしはさておき）
最近なぜかPowerPointの資料を作る機会が増えてきました。

操作に不慣れな分をマクロ化で補おうと思ったのですが、
Excelの個人用マクロブックみたいなものがPowerPointに見当たらず、
俺メニュー的なものをどう作っていいのか悩んだ末に、
とりあえず、VBScriptでPowerPointを操作するという手段を採用することにしました。

使い方

まず基準とする図形を一番最初に選択し、
Shiftを押しながら他の図形をクリックして選択していきます。
その状態でこのスクリプトを実行すると・・・ という感じです。

コード

以下のコードは幅・高さ・左端を揃えるようになっています。

'[ShapeAlign.vbs]'

ShapeAlign

Sub ShapeAlign()
    Const W = True
    Const H = True
    Const L = True
    Const T = False
    Dim f, s
    With GetObject(, "PowerPoint.Application").ActiveWindow.Selection
        If Not .Type = 2 Then Exit Sub
        Set f = .ShapeRange(1)
        For Each s In .ShapeRange
            If W Then s.Width = f.Width
            If H Then s.Height = f.Height
            If L Then s.Left = f.Left
            If T Then s.Top = f.Top
        Next
    End With
End Sub