こんにちは。PowerPoint VBAの世界へようこそ。
「マクロの記録」ボタンを押しても何も記録されないPowerPointに絶望し、途方に暮れていませんか？大丈夫です。PowerPointのVBAは、Excelのように「セル」というマス目がない分、自由度が高く、同時に「オブジェクト」という概念を理解すれば、どんな複雑なプレゼン資料も一瞬で操れる最強の武器になります。
今回は、現場のエンジニアが必ずぶつかる壁、「スライド内の特定のシェイプ（表やグラフ）をどうやって安全に操作するか」という本質的なテーマを解説します。
—
なぜ「エラー」が起きるのか？
PowerPointのスライドは、言わば「何でも詰め込める箱（`Shapes`）」です。写真、テキストボックス、図形、表、グラフ……これらがすべて同じ`Shape`という型で管理されています。
ここで多くの初心者が陥る罠がこれです。
‘ 危険なコードの例
Dim shp As Shape
Set shp = ActivePresentation.Slides(1).Shapes(1)
‘ もし1番目のシェイプが「ただの四角形」だったら、ここでエラー！
Debug.Print shp.Table.Rows.Count
`shp.Table`にアクセスしようとしたとき、もしそのシェイプが表でなかったら、VBAは「そんなプロパティは存在しません」と怒って処理を停止します。これが、多くのマクロが「不安定」と言われる理由です。
—
賢者の選択：HasTableとHasChartで「ドアをノックする」
エラーを避けるための極意は、「操作する前に、相手の正体を確認する」こと。
PowerPointのオブジェクトには、中身が何であるかを教えてくれる「判定フラグ」が用意されています。
- `HasTable`：これが `msoTrue` なら、中身は表（Table）である。
- `HasChart`：これが `msoTrue` なら、中身はグラフ（Chart）である。
このプロパティを「扉の鍵」として使いましょう。
—
実践コード：安全に表とグラフを捕まえる
以下のコードは、スライド内の全シェイプを巡回し、表とグラフだけを識別して操作するテンプレートです。現場でそのまま使える構成にしています。
Sub InspectShapesSafely()
Dim sld As Slide
Dim shp As Shape
‘ アクティブなスライドを対象にする
Set sld = ActiveWindow.View.Slide
For Each shp In sld.Shapes
‘ 1. 表(Table)の判定
If shp.HasTable = msoTrue Then
Debug.Print “表を発見！: ” & shp.Name
‘ ここで安全にテーブル操作が可能
shp.Table.Cell(1, 1).Shape.TextFrame.TextRange.Text = “更新済”
‘ 2. グラフ(Chart)の判定
ElseIf shp.HasChart = msoTrue Then
Debug.Print “グラフを発見！: ” & shp.Name
‘ ここで安全にグラフ操作が可能
shp.Chart.ChartTitle.Text = “自動更新されたグラフ”
Else
Debug.Print “対象外のシェイプです: ” & shp.Name
End If
Next shp
End Sub
このコードの「賢いポイント」
1. `For Each` ループ: スライド内のシェイプが何個あっても、順番にすべて確認します。
2. `msoTrue` の使用: VBAにおいて「正しい」は `-1` です。`If shp.HasTable = True` と書いても動きますが、`msoTrue` と書くのがPowerPoint VBAのプロフェッショナルの嗜みです。
3. 分岐構造: `If` と `ElseIf` を使うことで、一つのシェイプが複数の性質を同時に持つ可能性を排除し、処理の競合を防いでいます。
—
エラーをゼロにするための「型指定」の教養
さらに一歩進んだ話をしましょう。もし、その表を徹底的に操作したいなら、以下のように「変数へセット」すると、インテリセンス（コード補完）が効くようになり、開発効率が劇的に向上します。
Dim tbl As Table
If shp.HasTable = msoTrue Then
Set tbl = shp.Table ‘ 表オブジェクトとして型を固定する
‘ これ以降、tbl. と打てば表専用のプロパティが候補に出ます
tbl.ApplyStyle “{5C22544A-7EE6-4342-B048-85BDC9FD1C3A}”, True
End If
このように、「判定する」→「特定の型にセットする」というプロセスを経ることで、実行時エラーとは無縁の堅牢なシステムが構築できます。
—
まとめ：自動化エンジニアへの第一歩
今回学んだ「判定してから操作する」という考え方は、PowerPointだけでなく、Excelのシート判定や、Wordの段落判定にも通じる普遍的なスキルです。
1. いきなりプロパティに触らない（まずは`Has～`で確認）。
2. 型を絞り込んで操作する（`Set tbl = shp.Table`）。
3. 名前を付けて管理する（後で`Shapes(“売上表”)`のように呼び出せるよう、シェイプに名前を付けておく癖をつけましょう）。
ここをクリアすれば、あなたはもう「マクロの記録」に頼る初心者ではありません。スライドの構造を自在に操る、クリエイティブな自動化エンジニアへの第一歩を踏み出しましたね。
次は、表の特定のセルからデータを取得し、それをExcelへ転記するような、さらに高度な連携に挑戦してみるのも面白いですよ。応援しています！
