マーティには一連のワークブックがあり、50ものワークシートが含まれているものもあります。彼は、各ワークシートの同じ場所にグラフィック（会社のロゴ）を貼り付ける必要があります。彼はすべてのワークシートを選択してから貼り付けを行うことでこれを実行しようとしましたが、通常の編集のように複数のワークシートで機能するようには見えませんでした。

マーティは正しいです。複数のワークシートを選択しているときにグラフィックを貼り付けようとしても機能しません。試してみると、Excelは貼り付けができないと言っていますが、ワークシートを1つだけ選択すると、非常にうまく貼り付けることができます。

代わりに、マクロを使用して貼り付けを行う必要があります。グラフィックがすでにクリップボードにコピーされていると仮定すると、次のようなマクロを実行できます。

Sub InsertLogo1()

Dim shtSheet As Worksheet

Application.ScreenUpdating = False     For Each shtSheet In Worksheets         With shtSheet             .Activate             .Range("A1").Select             .Paste         End With     Next     Set shtSheet = Nothing     Application.ScreenUpdating = True End Sub

マクロはワークブックの各ワークシートをステップスルーし、グラフィックをセルA1に貼り付けます。別のセルを使用する場合は、セルを選択する行を変更するだけです。

事前にグラフィックをクリップボードにコピーしたくない場合は、次のようなマクロを使用して、画像ファイルからグラフィックを直接挿入できます。

Sub InsertLogo2()

Dim strPath As String     Dim shtSheet As Worksheet

strPath = "C:\GraphicFolder\PictureName.bmp"



For Each shtSheet In Worksheets         shtSheet.Activate         Range("A1").Select         ActiveSheet.Pictures.Insert (strPath)

Next shtSheet     Set shtSheet = Nothing End Sub

もちろん、グラフィックファイルへのパスとファイルがワークシートに貼り付けられるセルを変更することもできます。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（3222）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

linkグラフィックを複数のワークシートに貼り付ける。