Excelマクロでグループ化されたシートに画像を貼り付ける方法

Excelで複数のシートに画像を貼り付ける操作は、マクロを使用すれば自動化できます。しかし、すべてのシートではなく、特定のシートにのみ画像を貼り付けたい場合、特にシートがグループ化されている場合にはどうすればよいのでしょうか？この記事では、その解決方法について詳しく解説します。

Excelマクロで画像を貼り付ける基本的な方法
グループ化されたシートにのみ画像を貼り付ける方法
グループ化されたシートを対象にする利点
実際に使える！応用例
まとめ

Excelマクロで画像を貼り付ける基本的な方法

まず、Excelでマクロを使ってシートに画像を貼り付ける基本的なコードは以下のようになります。

Dim ws As Worksheet
Dim shp As Shape
Set shp = ActiveSheet.Shapes("Shape Name") '図形の名前を指定
For Each ws In ThisWorkbook.Sheets
    shp.Copy
    ws.Paste
Next ws

このコードでは、すべてのシートに対して画像を貼り付けることができますが、今回は特定の条件、すなわちグループ化されたシートにのみ画像を貼り付ける方法に焦点を当てます。

グループ化されたシートにのみ画像を貼り付ける方法

グループ化されたシートにのみ画像を貼り付けるには、シートがグループ化されているかどうかを確認し、その条件に合致したシートにのみ操作を実行する必要があります。以下のコード例では、グループ化されたシートに対してのみ画像を貼り付けます。

Dim ws As Worksheet
Dim shp As Shape
Set shp = ActiveSheet.Shapes("Shape Name") '図形の名前を指定
For Each ws In ThisWorkbook.Sheets
    If ws.Visible = xlSheetVisible Then 'シートが非表示でない場合
        If ws.Selected Then 'シートがグループ化されている場合
            shp.Copy
            ws.Paste
        End If
    End If
Next ws

このコードは、シートがグループ化されている（選択されている）場合にのみ画像を貼り付けるように設定しています。グループ化されていないシートには影響を与えません。