Office TANAKA - Excel VBA Tips[画像を挿入する]ワークシート上に画像を挿入するには、次のようにします。 Sub Macro1() ActiveSheet.Pictures.Insert "C:\Work\Sample1.jpg" End Sub 画像を、アクティブシートに挿入するときは、必ずアクティブセルに挿入されます。正確に言うと、アクティブセルの左上に画像の左上がくるように挿入されます。 次のように、シートを指定すれば、アクティブシートではない(表示されていない)シートに画像を挿入することもできます。 Sub Macro2() Sheets("Sheet1").Pictures.Insert "C:\Work\Sample1.jpg" End Sub このように、挿入するシートがアクティブシートではなかった場合、画像は常にセルA1に挿入されます。そりゃそうですね。だって、アクティブシートではないシートに、アクティブセルはありませんか
