PowerPoint VBAのSelectionオブジェクトの４つのタイプについて理解しよう！

photo credit: Andrew_Writer P1150772 via photopin (license)

みなさん、こんにちは！
タカハシ(@ntakahashi0505)です。

PowerPoint VBAで選択しているシェイプのフォントを変更するマクロの作り方をお伝えしています。

前回の記事はコチラです。

PowerPoint VBAで選択した部分を表すSelectionオブジェクトとその取得

みなさん、こんにちは！タカハシ(@ntakahashi0505)です。シリーズで、PowerPoint VBAで選択したオブジェクトについてフォントを変更するマクロの作り方を紹介していきます。前回の記事はコチラ。アクティブなウィンド...

「選択した部分」を表すSelectionオブジェクトについてお伝えしました。

そのSelectionオブジェクトですが、PowerPointの場合「選択した部分」にはいくつかの種類がありましたね。

今回は、その各種類について紐解いていきましょう。

では、PowerPoint VBAのSelectionオブジェクトの４つのタイプについて理解しよう！をお伝えします。

では、行ってみましょう！

前回のおさらい
「選択」の４つのパターン
Selectionオブジェクトのタイプを取得する
まとめ
連載目次：初心者向けPowerPoint VBAで選択箇所を操作する

前回のおさらい

前回は以下のようなソースコードを作りました。

Sub 選択している部分を取得する()

Debug.Print ActiveWindow.Selection.Parent.Caption

End Sub

アクティブなウィンドウの選択した部分を取得するコートですね。

さらに、その取得したSelectionオブジェクトの親オブジェクト（＝アクティブなウィンドウ）のタイトルバーテキストをデバッグプリントするという遠回しな確認をするものでした。

まあ、良しとしましょう。

「選択」の４つのパターン

さて、そのSelectionオブジェクトは、取得した際の状態に応じて４つのパターンがあります。

各パターンについて一つずつ紹介していきますね。

スライドを選択している状態

まず、以下のようにスライドが選択されている状態です。

このパターンでは選択できるスライドの数は１以上になります。

シェイプを選択している状態

次に、1つ以上のシェイプを選択してみましょう。

すると、以下のようにスライドの選択は１つに限定されます。

つまり、シェイプが選択されているときは、１つのスライドと１つ以上のシェイプが選択されいる状態になります。

テキスト範囲を選択している状態

続けて、いずれかのシェイプについて編集モードにして、テキスト範囲を選択してみます。

すると、以下のように、複数のシェイプの選択状態は解除されて、１つのシェイプのみが選択されます。

つまり、この場合、１つのスライドと１つのシェイプとテキスト範囲が選択されている状態になります。

何も選択されていない状態

あとは、以下のように、どのオブジェクトも選択されていない状態というのも存在しえます。

「選択の部分」つまりSelectionオブジェクトには上記のように、４つのパターンがあります。

Selectionオブジェクトのタイプを取得する

Selectionオブジェクトについて、以上の４つのパターンのどの状態なのかを知ることができるプロパティがあります。

以下のTypeプロパティです。

Selectionオブジェクト.Type

Typeプロパティで取得できるのは以下のppSelectionType列挙で定義されている定数で表される4つの数値です。

ppSelectionType	値	スライド	シェイプ	テキスト
ppSelectionNone	0	–	–	–
ppSelectionSlides	1	1つ以上	–	–
ppSelectionShapes	2	1つ	1つ以上	–
ppSelectionText	3	1つ	1つ	テキスト範囲

例えば、以下のようなコードを作ってみました。

Sub 選択状態を調べる()

With ActiveWindow.Selection
    If .Type = ppSelectionNone Then Debug.Print "何も選択されていません"
    If .Type >= ppSelectionSlides Then Debug.Print "スライドが選択されています"
    If .Type >= ppSelectionShapes Then Debug.Print "シェイプが選択されています"
    If .Type >= ppSelectionText Then Debug.Print "テキスト範囲が選択されています"
End With

End Sub

例えば、Typeプロパティが1以上であるときは、少なくとも1つ以上のSlideオブジェクトが選択されていますので、「スライドが選択されています」と出力されます。

Typeプロパティが3のときは、1以上であり、2以上でもあり、3以上でもありますから、「何も選択されていません」以外のメッセージが全て出力されます。

以降の記事でお伝えしていきますが、Selectionの状態によってできる処理が異なりますので、Typeプロパティによる分岐処理を入れるというのはスタンダードなテクニックになります。