Excelで自動的に写真を挿入する方法

Excelシートに画像やロゴを追加して、より見やすくしたいことはありませんか？セル内の画像のサイズを自動的に変更する設定はありませんが、数回クリックするだけで自分で変更することができます。このWikiHowでは、Excelで画像を挿入し、セルに収まるようにサイズを調整する方法をご紹介します。

1

Microsoft Excelでプロジェクトを開きます。ファイル＞Excelで開く、またはプロジェクトファイルを右クリックし、Open with＞Excel を選択します。

2

.挿入 > 写真 > 写真を選択 > 挿入.

3

サイズを変更します。画像を選択すると、"フォーマット "と "画像ツール "の下に "サイズ "のグループ分けが表示されます。

• 高さと幅を変更して、画像のサイズを調整します。また、画像の四隅をドラッグ＆ドロップしてサイズを調整することもできます。

4

画像をセルに固定します。デフォルトでは、追加した画像はセルの上に「浮いて」いて、セルの動きに合わせてサイズが変わりません。これを修正するには、画像またはセルをロックする必要があります。

• 画像を右クリックし、「画像の書式設定」をクリックします。次に「サイズとプロパティ」タブ（緑色の四角に矢印がついたマーク）をクリックし、「セルと一緒に移動してサイズ」を選択します。
• 画像を挿入した後にVBAコードを使用することもできます。画像を挿入し、Alt + F11キーを押してVBAウィンドウを開きます。挿入＞モジュールをクリックし、以下のコードを貼り付けます：
Public Sub FitPic() On Error GoTo NOT_SHAPE Dim PicWtoHRatio As Single Dim CellWtoHRatio As Single With Selection PicWtoHRatio = .Width / .Height End With With Selection.TopLeftCell CellWtoHRatio = .Width / .RowHeight End With Select Case PicWtoHRatio / CellWtoHRatio Case Is > 1 With Selection .Width = .TopLeftCell..Height = .Width / PicWtoHRatio End With Case Else With Selection .Height = .TopLeftCell.RowHeight .Width = .Height * PicWtoHRatio End With End Select With Selection .Top = .TopLeftCell.Top .Left = .TopLeftCell.Left End With Exit Sub NOT_SHAPE: MsgBox "このマクロを実行する前に画像を選択してください。" End Sub
• F5キーを押してコードを実行し、シート内の画像がすべてセルに収まるまでこの作業を繰り返します。

この記事は、CC BY-NC-SAの下で公開された " How to Insert Pictures in Excel That Automatically Size to Fit Cells " を修正して作成されました。特に断りのない限り、CC BY-NC-SAの下で利用可能です。