こんにちは。業務自動化の世界へようこそ。
PowerPoint VBAの世界に足を踏み入れると、多くの人が最初に直面する壁があります。それが「座標系の迷宮」です。
「`.Left = 100` と書いたのに、思っていた場所と違う！」
「なぜスライドマスタで指定した数値と、個別のスライドでの数値の感覚が違うのか？」
もしあなたが今、そんな悩みを抱えているなら、安心してください。それはあなたがダメなのではなく、PowerPointの「Points（ポイント）」という単位が、直感的な物理単位（mm）と乖離していることが原因だからです。
今日は、プロのアーキテクトが現場で必ず実装する「ミリメートル単位での高精度座標変換ライブラリ」を伝授します。ここをクリアすれば、あなたの作るマクロは「おもちゃ」から「業務システム」へと進化します。
—
1. なぜ「Points」で苦しむのか？
PowerPointの内部座標系は、画面の解像度に関わらず「72ポイント = 1インチ」という固定値で管理されています。しかし、私たちの日常業務は「幅10mmの余白を作れ」「高さ50mmの画像を配置せよ」といったミリ単位のオーダーで動いています。
この変換式は非常にシンプルです：
1インチ = 25.4mm
つまり、1ポイント = 25.4 / 72 mm です。
逆に言えば、「mmをポイントに変換する係数（約2.8346）」を制する者が、PowerPointのレイアウトを制するのです。
—
2. 座標変換の実装：プロのレイアウトライブラリ
以下のコードは、ミリメートル単位で指定した値を、PowerPointが理解できるポイント値に変換するユーティリティクラスです。標準モジュールに貼り付けて、そのまま活用してください。
‘ ———————————————————
‘ Module: LayoutEngine
‘ 概要: ミリ単位の指定をPowerPointのポイント単位に変換するライブラリ
‘ ———————————————————
Option Explicit
‘ 変換定数: 1インチ = 25.4mm / 72ポイント
Private Const MM_TO_PT As Double = 72 / 25.4
”’
”’
Public Function MmToPt(ByVal mmValue As Double) As Double
MmToPt = mmValue MM_TO_PT
End Function
”’
”’
Public Sub AlignShapePrecise()
Dim shp As Shape
If ActiveWindow.Selection.Type <> ppSelectionShapes Then
MsgBox “図形を選択してください。”
Exit Sub
End If
Set shp = ActiveWindow.Selection.ShapeRange(1)
‘ 例：スライドの左から10mm、上から20mmの位置に、幅50mm、高さ30mmで配置
With shp
.Left = MmToPt(10)
.Top = MmToPt(20)
.Width = MmToPt(50)
.Height = MmToPt(30)
End With
Debug.Print “配置完了: ” & shp.Name
End Sub
このコードのポイント
- マジックナンバーを排除する: `72 / 25.4` を定数化することで、計算の根拠を明確にしています。
- 再利用性: `MmToPt` 関数を独立させているため、どんなコードからでも呼び出せます。
- 拡張性: 将来的にインチ単位が必要になった場合も、このモジュールに `InchToPt` を追加するだけで対応可能です。
—
3. 陥りやすい罠：スライドマスタと個別スライドの違い
初心者がよくハマるのが、「スライドマスタで設定した位置と、個別スライドで設定した位置の不一致」です。
実は、PowerPointの座標系は、親となるオブジェクト（スライド全体、グループ化された図形、あるいはプレースホルダー）の「左上」を原点（0,0）として計算されます。
- スライド内: 左上が (0,0)
- グループ内: グループの左上が (0,0)
- プレースホルダー: スライドの左上が (0,0) だが、スライドマスタで定義された位置が初期値として適用される
このとき、「絶対座標（スライド全体での位置）」と「相対座標（グループ内での位置）」を混同しないことが重要です。マクロを組む際は、常に「今、どのオブジェクトを基準に座標を計算しているか」を意識してください。
—
4. ステップアップ：座標系を掌握するコツ
これからPowerPoint VBAを極めていく皆さんへ、最後のアドバイスです。
1. 「マクロの記録」を過信しない: マクロの記録は便利ですが、生成されるコードは座標が固定されがちです。今回紹介したような変換関数を噛ませることで、柔軟なレイアウトが可能になります。
2. `Selection` を避け、`Object` を操作する: `ActiveWindow.Selection` は視覚的な確認には良いですが、エラーの原因になりやすいです。`Set shp = ActivePresentation.Slides(1).Shapes(1)` のように、対象を明示的に指定する癖をつけてください。
3. Debug.Print を使い倒す: 配置した図形の `.Left` や `.Top` を `Debug.Print` でイミディエイトウィンドウに出力し、意図した数値になっているか常に確認しましょう。
—
さあ、これであなたのPowerPointレイアウトは、デザイナーが引いたガイドラインのように正確なものになるはずです。
「たかがVBA」と思わずに、「いかに計算式を美しく書くか」を追求してみてください。その先に、自動化の真の快感が待っていますよ。
何か不明点があれば、いつでも聞いてくださいね。応援しています！
