【VBA】図形(Shape)の種類を判定する方法(Typeプロパティ)

2024年1月4日

Excelシートの図形(Shape)を処理していると、たまに図形の種類を気にすることがあります。

例えば、シート上の全図形に対して処理したいけど画像だけ除外したいなど。

図形の種類の確認はTypeプロパティを使って行います。

今回はこのTypeプロパティの使い方と図形の種類について解説します｡

VBAが難しいと感じたら

VBAのプロに代わりに作ってもらうのはいかがでしょうか？
ココナラでVBAの作成請負を受け付けています。お気軽にご相談ください。

図形(Shape)の種類を判定する方法(Typeプロパティ)

Sub Sample()
    '''画像以外の図形を左端に集める

    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes

        ''画像以外の図形を判定
        If shp.Type <> msoPicture Then
            shp.Left = 1
            shp.Top = 1
        End If
    Next
End Sub

このサンプルコードは図形(Shape)の種類を判定して、画像以外の図形の位置を動かすものです。

        ''画像以外の図形を判定
        If shp.Type <> msoPicture Then

ポイントはこの部分で、shp.Typeが画像でないときのみ処理を進めています。

このようにshp.Typeを確認することで、図形の種類に応じた処理分岐ができます。

よく使う図形の種類

よく使う図形の種類にはこのようなものがあります。

図形の種類を確認したいときに活用してみてください。

また、図形の種類一覧もこの後にまとめて記載します。
（ここにない種類を確認したい際に使ってください）

図形の種類一覧

VBAが難しいと感じたら

VBAのプロに代わりに作ってもらうのはいかがでしょうか？
ココナラでVBAの作成請負を受け付けています。お気軽にご相談ください。