KutoolsforOffice— 1 つのソリューション、5 つの強力なツール。少ない労力で大きな成果。

Excel ですべての画像を自動的に「セルに合わせて移動とサイズ変更」に設定する方法は?

著者Siluvia変更日

Excel で画像を扱う際、ワークシートに挿入された画像はデフォルトで「セルに合わせて移動(サイズ変更なし)」に設定されていることに気づくでしょう。つまり、列の幅や行の高さなどセルのサイズを調整しても、画像は元の寸法を保ったままとなり、新しいセルレイアウトに自動的にリサイズされることはありません。ダッシュボードやレポート、ビジュアルな追跡シートを作成する際に、画像とセルの調整をシームレスに連携させたいユーザーにとっては、このデフォルト動作は手間がかかり、特に多数の画像を含むワークシートでは手作業での修正が極めて非効率です。

この課題を解決するため、Excel では各画像のプロパティを「セルに合わせて移動とサイズ変更」に設定できます。ただし、画像を1 つずつ手作業で変更するのは非常に手間がかかります。本記事では、シンプルな VBA コードを使って、ワークシート内のすべての画像を一括で「セルに合わせて移動とサイズ変更」に自動更新する効率的な方法をご紹介します。この手法は、画像を含む行や列を頻繁に再編成・フィルター・調整するシーンで特に役立ち、視覚的要素が常にデータと適切に整列されるよう保証します。

VBA コードで全画像を「セルに合わせて移動とサイズ変更」に自動設定


VBA コードで全画像を「セルに合わせて移動とサイズ変更」に自動設定

ワークシートに複数の画像が含まれており、すべての画像を対応するセルの変更に合わせて一貫して調整したい場合は、以下の VBA コードを使用して、アクティブなワークシート内のすべての画像オブジェクトを即座に「セルに合わせて移動とサイズ変更」に設定できます。この自動化ソリューションにより、繰り返しの手作業が不要になり、作業効率が向上するとともに、処理中に画像を見落とすリスクも軽減されます。

この VBA ソリューションを適用する手順は以下のとおりです。

1.セルとともに移動およびサイズ変更されるように更新したい画像を含むワークシートを開きます。次に、キーボードショートカットAlt+F11Microsoft Visual Basic for Applicationsエディターを起動します。このショートカットはExcel のほとんどのバージョンでご利用いただけます。

注:開発タブが表示されていない場合は、Excel のオプションから有効化できます。保護されたブックや共有ブックで作業している場合、一部の機能が制限されている可能性があるため、必要な編集権限をあらかじめご確認ください。

2.Microsoft Visual Basic for Applicationsウィンドウで、挿入標準モジュールをクリックして新しいモジュールを作成します。その後、次の VBA コードをコードウィンドウにコピー&ペーストしてください。

VBA コード:すべての画像を「セルに合わせて移動とサイズ変更」に設定

Sub MoveAndSizeWithCells()
    Dim xPic As Picture
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each xPic In ActiveSheet.Pictures
        xPic.Placement = xlMoveAndSize
    Next
    Application.ScreenUpdating = True
End Sub

ヒント:

  • マクロを実行する前に、正しいワークシートで作業していることをご確認ください。このコードは、現在のワークシート内のすべての画像に影響を与えるためです。
  • ワークシートに図形やグラフ、アイコンなどの他のオブジェクトが含まれていても、このコードは画像オブジェクトのみを対象とし、それ以外のオブジェクトには一切手を加えません。

3.VBA エディターでF5キーを押すか、実行ボタンをクリックしてコードを実行してください。実行後、アクティブなワークシート内のすべての画像が自動的に「セルに合わせて移動とサイズ変更」に設定されます。個別に画像を選択する必要は一切なく、コードがすべての画像を一括で処理します。

このソリューションを使えば、手作業を最小限に抑えられ、行や列を頻繁に調整する場合でも一貫した書式を維持できます。一部の画像が期待通りに変更されない場合は、そのオブジェクトがExcel 上で「画像」として正しく認識されているかを再度ご確認ください。「選択」ペインには「Picture」と表示されるはずです。他のオブジェクトタイプでないことをご確認ください。

処理中にエラーが発生した場合は、グラフシートを誤って選択していないか、または画像がロックまたはグループ化されていないかをご確認ください。ほとんどの場合、上記の手順でコードを実行すれば、目的の結果が得られます。

さらに作業効率を高めたいなら、VBA を実行する前にブックを保存することをおすすめします。この処理を定期的に繰り返したい場合は、マクロをボタンに割り当てて、ワンクリックで実行できるようにすると便利です。

VBA に不慣れな方にもおすすめの実用的な代替手段として、画像を右クリックして図の書式設定を開き、プロパティで「セルに合わせて移動とサイズ変更」にチェックを入れる方法があります。ただし、この方法は画像の数が少ないワークシートにのみ適しています。

もう1 つの関連手法として、Excel VBA の「選択ペイン」機能を使い、すべての画像をフィルターして素早く選択し、その後プロパティを手動で調整する方法があります。これにより、さまざまなオブジェクトタイプが混在する複雑なレイアウトでも、よりきめ細やかな制御が可能になります。


関連記事:


最高の Office 業務効率化ツール

🤖KUTOOLS AI アシスタント:次に基づいてデータ分析を革新します:インテリジェント実行     コード生成  カスタム数式作成    データ分析とチャート生成  拡張機能呼び出し
人気の機能検索・ハイライト、または重複をマーキング     空白行を削除する     データを失うことなく列の結合またはセルを     数式を使用しない四捨五入...
スーパー LOOKUP複数条件 VLookup    複数値 VLookup     複数シート間 VLookup      ファジーマッチ....
高度なドロップダウンリストドロップダウンリストをすばやく作成     連動型ドロップダウンリスト     複数選択可能なドロップダウンリスト....
列マネージャー指定した数の列を追加列の移動非表示列の表示状態を切り替え範囲および列の比較...
注目の機能グリッドフォーカス     デザインビュー   強化された数式バー    ワークブックとシートマネージャー     リソースライブラリ(オートテキスト)  日付ピッカー     ワークシートの統合    暗号化/セルの復号化    リストからメール送信     スーパーフィルター      特殊フィルタ(太字のフォントを持つセルをフィルタリング/斜体/取り消し線。。。) 。。。
トップ15 ツールセット12 テキストツールテキストの追加特定の文字を削除、...)   50+チャートタイプガントチャート、...)   40+実用的関数誕生日に基づいて年齢を計算します、...)   19 挿入ツールQR コードを挿入パスから画像を挿入、...)   12 変換ツール単語に変換する為替レートの変換、...)   7 結合と分割ツール高度な行のマージセルの分割、...)さらに多数
Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています!

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。


Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

  • Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
  • 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
  • 日々の生産性を50%も向上させ、毎日数百回ものマウスクリックを削減します!

すべてのKutools アドインが、たった1 つのインストーラーで完結。

Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。

ExcelWordOutlookTabsPowerPoint
  • オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン+Office Tab Pro
  • インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能(MSI 対応)
  • 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
  • 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
  • 最高のお得感— 個別アドイン購入よりお得