Excelで画像を挿入し、自動的にサイズを変更してセル内に収める方法

PDF形式でダウンロード

PDF形式でダウンロード

この記事には：

ステップ

関連記事

Excelのワークシートに画像やロゴを挿入して、より視覚的に魅力的なものにしたいことはありませんか？セル内の画像のサイズを変更する自動設定はありませんが、数回クリックするだけで自分で行うことができます。この記事では、Excelで画像を挿入し、サイズを変更してセル内に収める方法を紹介します。

ステップ

PDF形式でダウンロード

1. 
   1
   Microsoft Excelでプロジェクトを開く　これを行うには、Excel内でファイル＞開くの順に選択するか、プロジェクトファイルを右クリックし、プログラムから開く＞Excelの順に選択します。
2. 
   2
   画像を挿入する　これを行うには、挿入＞画像＞画像の選択＞挿入の順に選択します。
3. 
   3
   サイズを変更する　画像を選択すると、「書式」と「画像ツール」の下に「サイズ」グループが表示されます。

   • 高さと幅を変更して画像のサイズを調整しましょう。また、画像の隅のハンドルをドラッグ＆ドロップしてサイズを再調整することもできます。
4. 
   4
   セルに画像をロックする　デフォルトでは、挿入した画像はセルの上に「浮かんでいる」状態で、セルに合わせてサイズが変更されることはありません。これを解決するには、画像またはセルをロックする必要があります。

   • 画像を右クリックし、画像の書式設定をクリックしましょう。次に、「サイズとプロパティ」タブ（緑色の四角に矢印が付いたマーク）をクリックし、セルに合わせて移動やサイズ変更をするを選択します。
   • また、いくつかの画像を挿入した後にVBAコードを使用することもできます。画像を挿入し、Alt＋F11キーを押してVBAウィンドウを開きましょう。挿入>モジュールの順にクリックし、以下のコードを貼り付けます。

   Public Sub FitPic()On Error GoTo NOT_SHAPEDim PicWtoHRatio As SingleDim CellWtoHRatio As SingleWith SelectionPicWtoHRatio = .Width / .HeightEnd WithWith Selection.TopLeftCellCellWtoHRatio = .Width / .RowHeightEnd WithSelect Case PicWtoHRatio / CellWtoHRatioCase Is > 1With Selection.Width = .TopLeftCell.Width.Height = .Width / PicWtoHRatioEnd WithCase ElseWith Selection.Height = .TopLeftCell.RowHeight.Width = .Height * PicWtoHRatioEnd WithEnd SelectWith Selection.Top = .TopLeftCell.Top.Left = .TopLeftCell.LeftEnd WithExit SubNOT_SHAPE:MsgBox "Select a picture before running this macro."End Sub

   • F5キーを押してコードを実行し、ワークシート内のすべての画像がセルに収まるまでこの手順を繰り返しましょう。
   広告