PowerPoint VBAで選択しているシェイプを操作するShapeRangeオブジェクト

photo credit: Zach K 699 Flushing Avenue via photopin (license)

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

PowerPoint VBAで選択している部分を操作するマクロの作り方についてお伝えしています。

前回の記事はコチラ。

PowerPoint VBAで選択しているスライドのフォントを変更するマクロの作り方

みなさん、こんにちは！タカハシ(@ntakahashi0505)です。 PowerPoint VBAで選択している部分を操作するマクロの作り方について解説をしています。前回の記事はコチラです。選択しているスライド範囲を表すSlideR...

選択しているスライド上のフォントを変更するマクロの作り方をお伝えしました。

さて、「選択している部分」の「スライド」を操作する方法をお伝えしてきましたので、今回は「シェイプ」です。

ということで、PowerPoint VBAで選択しているシェイプ範囲を操作するShapeRangeオブジェクトについて紹介します。

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

選択している部分の取得のおさらい
選択しているシェイプを操作する
まとめ
連載目次：初心者向けPowerPoint VBAで選択箇所を操作する

選択している部分の取得のおさらい

では、コチラの記事で紹介していたSelectionオブジェクトの状態を調べるプロシージャの復習からはじめましょう。

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プロパティを使ってその状態を判定するプロシージャです。

シェイプが選択されていれば「シェイプが選択されています」と出力されますね。この判定を今回も使いまわします。

選択しているシェイプを操作する

ShapeRangeオブジェクトとは

PowerPoint VBAでは「選択しているシェイプ」を表すShapeRangeオブジェクトを利用することができます。

シェイプの選択は1つだけでなく、複数の場合もありますので、ShapeRangeオブジェクトは複数のシェイプを取り扱う性質を持ちます。

ShapeRangeオブジェクトはかなり多くのメンバーを持っていまして

複製、コピーや削除
塗りつぶしや枠線の設定
グループ化やグループ化解除
高さや幅の変更

などなど、様々な操作をいっぺんにできる便利オブジェクトとなっております。

また、SlideRangeオブジェクトのように、含まれる各シェイプについてループを回して処理をするということも可能です。

ShapeRangeプロパティでシェイプ範囲を取得する

シェイプ範囲を取得するには、SelectionオブジェクトのShapeRangeプロパティを使います。

書式はコチラです。

Selectionオブジェクト.ShapeRange

SlideRangeオブジェクトと同じノリですね。

ShapeRangeオブジェクトを操作する例

例として、以下のプロシージャを書いてみましょう。

Sub 選択したシェイプの取得()

With ActiveWindow.Selection
    If .Type >= ppSelectionShapes Then
        Debug.Print "選択シェイプ数: " & .ShapeRange.Count
        .ShapeRange.Duplicate
    End If
End With

End Sub

以下のようにシェイプを選択している状態で実行をすると…

イミディエイトウィンドウには「選択シェイプ数: 2」と出力され、以下のように選択シェイプのみが複製されます。

もうおわかりと思いますが、プロシージャ内のCountプロパティはShapeRangeオブジェクトに含まれるシェイプの数を表すプロパティです。

ShapeRangeオブジェクト.Count

また、Duplicateメソッドはシェイプ範囲に含まれるシェイプを複製するメソッドになります。

ShapeRangeオブジェクト.Duplicate

シェイプが単一でないと使えないメンバーもある

以下のコードは、選択しているシェイプの名前をイミディエイトウィンドウに出力するものです。

Sub 選択したシェイプの名前()

With ActiveWindow.Selection
    If .Type >= ppSelectionShapes Then
        Debug.Print "選択シェイプの名前: " & .ShapeRange.Name
    End If
End With

End Sub

Nameプロパティは選択シェイプのシェイプ名を取得するプロパティです。

ShapeRangeオブジェクト.Name

ですが、このプロパティは選択シェイプが単一のときでないと以下のようなエラーが出てしまいます。