2
3

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

More than 5 years have passed since last update.

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

Last updated at Posted at 2019-03-22

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

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
2
3

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?