VBAでセル内画像をセルの上に配置する

動作検証バージョン：Windows 11 Home + 64bit Excel バージョン 2507（ビルド19029.20184クイック実行）

逆の処理もVBAから可能です。

［スポンサードリンク］

セル内画像をセルの上に配置するサンプルマクロ

以下のExcelマクロを実行すると、アクティブセルの画像がセル上に配置されます

Sub アクティブセルの画像をセルの上に配置する()
　ActiveCell.PlacePictureOverCells
End Sub

Rangeオブジェクトに用意されているPlacePictureOverCellsメソッドで、セル内の画像をセルの上に配置できます。

アクティブセルに画像がなかったとしても、エラーは発生しません。

オブジェクトブラウザーなどで確認できるとおり、Range.PlacePictureOverCellsメソッドには、引数AsReferenceを指定できます。

ヘルプも用意されておらず、引数AsReferenceに何を指定できるのかもわからないまま、以下のマクロを試したらとりあえずの挙動が確認できました。

Sub アクティブセルの画像をセルの上に配置する()
　ActiveCell.PlacePictureOverCells AsReference:=True
End Sub

AsReference:=Trueを指定して実行したときには、下図のようにセル内にも画像が表示されたまま、セルの上に画像が表示されました。

それに対し、先ほどのように引数を指定しない場合や、

　ActiveCell.PlacePictureOverCells

引数AsReferenceにFalseを指定した場合には、

　ActiveCell.PlacePictureOverCells AsReference:=False

下図のような状態になるようです。

［スポンサードリンク］

Home » Excel VBA Rangeオブジェクト » VBAでセル内画像をセルの上に配置する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

Excel VBA経験者の方に向けて、Word VBAの基本をキンドル本にしました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記のExcel VBAユーザー向けのPython超入門書の、元になったキンドル本です↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

「Excel VBA Rangeオブジェクト」の記事一覧