Excel VBAでセルに含まれる画像・オブジェクトのサイズ・種類を制限する方法

業務においてExcelを用いる際、セルに画像やオブジェクトの挿入が必要な場合が多々あります。しかし、不適切なサイズや種類の画像やオブジェクトが挿入されると、文書の見栄えや処理速度に影響が出ることがあります。この記事では、Excel VBAを用いてセルに含まれる画像やオブジェクトのサイズと種類を制限する方法を解説します。

基本のコード

Excel VBAを用いて、セルに挿入される画像やオブジェクトのサイズと種類を制限する基本のコードを以下に示します。

Sub LimitObjectSizeAndType()
    Dim shp As Shape
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") '対象となるワークシート

    For Each shp In ws.Shapes
        '画像サイズの制限
        If shp.Width > 200 Or shp.Height > 200 Then 'サイズを200x200ピクセルに制限
            MsgBox "画像のサイズが大きすぎます。"
            shp.Delete
            Exit Sub
        End If

        '画像種類の制限
        If Not shp.Type = msoPicture Then '画像以外のオブジェクトを制限
            MsgBox "許可されていないオブジェクトの種類です。"
            shp.Delete
            Exit Sub
        End If
    Next shp
End Sub

このコードでは、指定されたワークシート内のすべてのオブジェクトをループで確認し、サイズや種類に応じて制限や削除を行っています。

コードの詳細解説

– `Dim shp As Shape`: Shapeオブジェクトとしての変数を定義しています。この変数はワークシート内の各オブジェクトを参照するために使用します。

– `Set ws = ThisWorkbook.Sheets(“Sheet1”)`: 対象となるワークシートを指定しています。この例では”Sheet1″を対象としています。

– `For Each shp In ws.Shapes`: wsで指定したワークシート内の全てのオブジェクトに対してループ処理を行います。

– `If shp.Width > 200 Or shp.Height > 200 Then`: オブジェクトのサイズが200×200ピクセルを超える場合の制限を設定しています。

– `If Not shp.Type = msoPicture Then`: オブジェクトが画像でない場合の制限を設定しています。msoPictureは画像を示す定数です。

応用例

1. 特定の種類の画像のみ許可

例えば、JPEG画像のみを許可し、他の種類の画像を制限する場合のコードは以下のようになります。

Sub AllowOnlyJPEG()
    Dim pic As Picture
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    For Each pic In ws.Pictures
        If Right(pic.Name, 4) <> ".jpg" Then
            MsgBox "JPEG画像以外は許可されていません。"
            pic.Delete
        End If
    Next pic
End Sub

2. 画像のアスペクト比を維持しつつサイズ制限

画像のアスペクト比を保ったままサイズを制限する方法です。

Sub LimitSizeKeepAspectRatio()
    Dim shp As Shape
    Dim ws As Worksheet
    Dim aspectRatio As Double
    Set ws = ThisWorkbook.Sheets("Sheet1")

    For Each shp In ws.Shapes
        If shp.Type = msoPicture Then
            aspectRatio = shp.Width / shp.Height
            If shp.Width > 200 Then
                shp.Width = 200
                shp.Height = 200 / aspectRatio
            ElseIf shp.Height > 200 Then
                shp.Height = 200
                shp.Width = 200 * aspectRatio
            End If
        End If
    Next shp
End Sub

3. オブジェクトの種類に応じたメッセージ表示

オブジェクトの種類に応じて、異なるメッセージを表示する例です。

Sub ObjectTypeMessage()
    Dim shp As Shape
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    For Each shp In ws.Shapes
        Select Case shp.Type
            Case msoPicture
                MsgBox "画像が挿入されました。"
            Case msoChart
                MsgBox "グラフが挿入されました。"
            Case Else
                MsgBox "その他のオブジェクトが挿入されました。"
        End Select
    Next shp
End Sub

まとめ

Excel VBAを利用することで、

セルに挿入される画像やオブジェクトのサイズや種類の制限が簡単に行えます。この機能を活用して、業務文書の品質を向上させることが可能です。是非、ご自身の業務に適用してみてください。