##これは
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