web-dev-qa-db-ja.com

Excelセルに画像を挿入

写真付きのレポートを作成しようとしていますが、写真を1つのセルにまとめることはできません。ワークシートの周囲に絵を浮かべることはできますが、セルに入れる必要があります。これどうやってするの?

132
Reid

あなたはコメントに画像を追加することができます。

セルを右クリック> [コメントの挿入]>コメントボックスの外側の影付きの部分(灰色の領域)を右クリック> [書式の設定]> [色と線]> [塗り]> [色]

画像はホバーすると表示されます。

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


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

106
Amber

もっと早い方法があります( https://www.youtube.com/watch?v=TSjEMLBAYVc ):

  1. 画像をExcelに挿入(Ctrl + V)します。
  2. [画像ツール - >整列 - >グリッドに吸着]がチェックされていることを確認します。
  3. セル(またはセル数)に合わせて画像のサイズを変更します
  4. 画像を右クリックして、[サイズとプロパティ] - > [プロパティ] - > [セルの移動とサイズ変更]をオンにします。
46
user3115782

googleドキュメントにアクセスして、これを数式として貼り付けます。URLはあなたのimgへのリンクです。

      =image("URL", 1)

その後、GoogleドキュメントのオプションからExcel用にダウンロードすると、画像上に画像が表示されますEDITコメントごとに、画像のURLをそれほど長く保存しておく必要はありません。その後、ファイルに埋め込まれたままになります。

16
virgula24

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

  1. [挿入]タブに進みます。
  2. [写真]オプションをクリックします(イラストグループにあります)。 image1
  3. [画像の挿入]ダイアログボックスで、Excelのセルに挿入する画像を見つけます。 image2
  4. 挿入ボタンをクリックしてください。 image3
  5. セル内に収まるように画像/画像のサイズを変更します。 image4
  6. セルに絵を置きます。これを行うためのクールな方法は、まずALTキーを押してからマウスで画像を移動することです。それはすぐにそれに近づくとすぐにセルの境界線に沿ってスナップして配置されます。

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

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


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

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

  1. 画像を右クリックして[図の書式設定]を選択します。 image5
  2. [図の書式設定]ペインで、[サイズとプロパティ]を選択し、[プロパティ]のオプションを使用して、[セルのサイズと移動]を選択します。 image6

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


注:

この答えはこのリンクから取られました: Excelのセルに画像を挿入します

3
ziMtyth

私のお勧めは、 Doality.com から入手可能な自動化機能を利用することです。

次の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

そして、以下のようにInsertメソッドを作成します。

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
2
Daniel