【ExcelVBA】シート上のシェイプやコントロール全ての名前や種類を取得するには

この記事では、シート上のシェイプやコントロール全ての名前や種類を取得する方法についてご説明します。

すぐにソースコードを見たい場合はこちらをクリック

Table of Contents

【動画】シート上のシェイプやコントロール全ての名前や種類を取得する実際の動き

本題に入る前に、まずは次の動画をご覧ください。

ShapeオブジェクトのNameプロパティとAutoShapeTypeプロパティでシェイプやコントロール全ての名前や種類を取得しています。

なお、AutoShapeTypeプロパティで種類される値は数値ですが、その数値だけだとどのシェイプやコントロールなのか特定しにくいので、次のページの対応表を見ると特定しやすくなるのでそちらも参照してください。

参考 MsoAutoShapeType 列挙 (Office)microsoft

目次へ戻る

マクロ作成の流れ

STEP.1

ShapeオブジェクトのNameプロパティでシェイプやコントロールの名前を取得する

ShapeオブジェクトのNameプロパティでシェイプやコントロールの名前を取得します。

STEP.2

ShapeオブジェクトのAutoShapeTypeプロパティでシェイプやコントロールの種類を取得する

ShapeオブジェクトのAutoShapeTypeプロパティでシェイプやコントロールの種類を取得します。

STEP.3

シェイプやコントロールの数だけSTEP.1とSTEP.2を繰り返す

シェイプやコントロールの数だけSTEP.1とSTEP.2を繰り返します。

目次へ戻る

コードの例

Excelのマクロのコード(例)

Option Explicit

Sub test()

    Dim obj As Object       'シェイプ・コントロール用変数
    Dim cnt As Integer      'カウンタ
    
    'カウンタを初期化する
    cnt = 2

    With Worksheets("work")
    
        'シート「work」上のシェイプ・コントロールの数分だけループ
        For Each obj In .Shapes
        
            'シェイプ・コントロールに付けられた名前を取得する
            .Range("A" & cnt).Value = obj.Name
            
            'シェイプ・コントロールの種類を取得する(数値で取得)
            .Range("B" & cnt).Value = obj.AutoShapeType
            
            cnt = cnt + 1
        
        Next obj

    End With

End Sub

注目すべきコード①

最初に見て頂きたいのは20行目です。

    With Worksheets("work")
    
        'シート「work」上のシェイプ・コントロールの数分だけループ
        For Each obj In .Shapes

以上のコードは、シェイプやコントロールの数だけループ処理を行うコードです。

例えば、シェイプやコントロールが10個あれば、10回ループを繰り返します。

注目すべきコード②

次に見て頂きたいのは20行目です。

            'シェイプ・コントロールに付けられた名前を取得する
            .Range("A" & cnt).Value = obj.Name
            
            'シェイプ・コントロールの種類を取得する(数値で取得)
            .Range("B" & cnt).Value = obj.AutoShapeType

以上のコードは、ShapeオブジェクトのNameプロパティとAutoShapeTypeプロパティでシェイプやコントロールの名前と種類を取得してセルに出力しているコードです。

Nameプロパティには、手動で名前を設定している場合にはその名前が、デフォルトのままの場合はシェイプまたはコントロールを配置したタイミングで自動で設定される名前がNameプロパティに設定されています。