Excelセルに画像を挿入する[終了]

画像付きのレポートを作成するつもりですが、画像を1つのセルに入れることができません。写真をワークシートの周りに「浮かせる」ことができますが、セルに配置する必要があります。これどうやってするの？

コメントに画像を追加できます。

セルを右クリック>コメントを挿入>コメントボックスの外側の網掛け（灰色の領域）を右クリック>コメントの書式設定>色と線>塗りつぶし>色>塗りつぶし効果>画像>（画像を参照）> OKをクリック

カーソルを合わせると画像が表示されます。

Microsoft Office 365（2019）は、コメントと呼ばれる新しいものを導入し、古いコメントの名前を「notes」に変更しました。したがって、上記の手順ではのNew Note代わりに行いInsert Commentます。他のすべてのステップは同じままで、機能はまだ存在しています。

Windows用の20ドルの製品もあります-Excel Image Assistant ...

もっと速い方法があります（https://www.youtube.com/watch?v=TSjEMLBAYVc）：

1. Excelに画像（Ctrl + V）を挿入します。
2. 「Picture Tools-> Align-> Snap To Grid」がチェックされていることを確認します
3. セル（またはセルの数）に合わせて画像のサイズを変更します
4. 画像を右クリックし、「サイズとプロパティ...->プロパティ->移動してセルのサイズ」を確認します。

Googleドキュメントに移動し、これを数式として貼り付けます。URLは画像へのリンクです

      =image("URL", 1)

その後、google docsオプションからダウンロードしてExcelにダウンロードすると、セルに画像が表示されます。コメントごとにEDITコメントごとに画像のURLを保持する必要はありません。Excelがダウンロードするのに十分な長さです。その後、ファイルに埋め込まれたままになります。

これで、Excelに直接簡単に画像を追加できます。次の手順に従ってください。

1. [挿入]タブに移動します。
2. （写真グループにある）[写真]オプションをクリックします。
3. [画像の挿入]ダイアログボックスで、Excelのセルに挿入する画像を見つけます。
4. 挿入ボタンをクリックします。
5. セル内に完全に収まるように画像/画像のサイズを変更します。
6. セルに画像を配置します。これを行うためのクールな方法は、最初にAltキーを押してから、マウスで画像を移動することです。セルに近づくとすぐに、スナップしてセルの境界線に配置されます。

複数の画像がある場合は、すべての画像を一度に選択して挿入できます（手順4を参照）。

画像を選択して端をドラッグすることで、画像のサイズを変更することもできます。ロゴや商品画像の場合は、画像の縦横比をそのまま維持することをお勧めします。縦横比を維持するには、画像の角を使用してサイズを変更します。

上記の手順を使用してセル内に画像を配置すると、セルのサイズ変更、フィルタリング、または非表示を行っても、セルに固定されません。画像をセルに固定したい場合は、nに配置されたセルに画像をロックする必要があります。

これを行うには、以下に示す追加の手順に従う必要があります。

1. 画像を右クリックして、[画像のフォーマット]を選択します。
2. [画像の書式設定]ウィンドウで[サイズとプロパティ]を選択し、[プロパティ]のオプションで[セルを使用して移動およびサイズ変更]を選択します。

これで、セルを移動したり、フィルターをかけたり、非表示にしたりできます。また、画像も移動/フィルター/非表示になります。

注意：

この回答はこのリンクから取得されました：Excelのセルに画像を挿入します。

私の推奨は、Doality.comから利用できる自動化、特にPicture Manager for Excelを利用することです。

次のvbaコードは基準を満たしている必要があります。幸運を！

Excelコントロールにボタンコントロールを追加し、ボタンをダブルクリックしてVBAコードに移動します->

Sub Button1_Click()
    Dim filePathCell As Range
    Dim imageLocationCell As Range
    Dim filePath As String

    Set filePathCell = Application.InputBox(Prompt:= _
        "Please select the cell that contains the reference path to your image file", _
            Title:="Specify File Path", Type:=8)

     Set imageLocationCell = Application.InputBox(Prompt:= _
        "Please select the cell where you would like your image to be inserted.", _
            Title:="Image Cell", Type:=8)

    If filePathCell Is Nothing Then
       MsgBox ("Please make a selection for file path")
       Exit Sub
    Else
      If filePathCell.Cells.Count > 1 Then
        MsgBox ("Please select only a single cell that contains the file location")
        Exit Sub
      Else
        filePath = Cells(filePathCell.Row, filePathCell.Column).Value
      End If
    End If

    If imageLocationCell Is Nothing Then
       MsgBox ("Please make a selection for image location")
       Exit Sub
    Else
      If imageLocationCell.Cells.Count > 1 Then
        MsgBox ("Please select only a single cell where you want the image to be populated")
        Exit Sub
      Else
        InsertPic filePath, imageLocationCell
        Exit Sub
      End If
    End If
End Sub

次に、次のように挿入メソッドを作成します。

Private Sub InsertPic(filePath As String, ByVal insertCell As Range)
    Dim xlShapes As Shapes
    Dim xlPic As Shape
    Dim xlWorksheet As Worksheet

    If IsEmpty(filePath) Or Len(Dir(filePath)) = 0 Then
        MsgBox ("File Path invalid")
        Exit Sub
    End If

    Set xlWorksheet = ActiveSheet

    Set xlPic = xlWorksheet.Shapes.AddPicture(filePath, msoFalse, msoCTrue, insertCell.top, insertCell.left, insertCell.width, insertCell.height)
    xlPic.LockAspectRatio = msoCTrue
End Sub

Googleドライブを使えば、1分もかからずに実行できます（無料で、面倒はありません）。

•imgur.com上のすべての画像を一括アップロード

•すべての画像のリンクをまとめて、.jpgを付けてコピーします。すべての画像リンクを一緒にコピーできるのはimgurだけです。これは、画像タブの右上を使用して行います。

• http : //TextMechanic.coを使用して、各行に先頭と末尾に次のように追加します。プレフィックス：=image(" ANDサフィックス：", 1)

こんな感じに =image("URL", 1)

•すべてをコピー

•Googleスプレッドシートに貼り付けます

•出来上がり！

参照：

http://www.labnol.org/internet/images-in-google-spreadsheet/18167/

https://support.google.com/drive/bin/answer.py?hl=en&answer=87037&from=1068225&rd=1