写真付きのレポートを作成しようとしていますが、写真を1つのセルにまとめることはできません。ワークシートの周囲に絵を浮かべることはできますが、セルに入れる必要があります。これどうやってするの?
あなたはコメントに画像を追加することができます。
セルを右クリック> [コメントの挿入]>コメントボックスの外側の影付きの部分(灰色の領域)を右クリック> [書式の設定]> [色と線]> [塗り]> [色]
画像はホバーすると表示されます。
Microsoft Office 365(2019) コメントと呼ばれる新しいものを導入し、古いコメントを " notes "と改名しました。したがって上記の手順では、New Note
の代わりにInsert Comment
を実行してください。他のすべてのステップは同じままで、機能はまだ存在しています。
Windows用の$ 20製品もあります - Excel Image Assistant ...
もっと早い方法があります( https://www.youtube.com/watch?v=TSjEMLBAYVc ):
googleドキュメントにアクセスして、これを数式として貼り付けます。URLはあなたのimgへのリンクです。
=image("URL", 1)
その後、GoogleドキュメントのオプションからExcel用にダウンロードすると、画像上に画像が表示されますEDITコメントごとに、画像のURLをそれほど長く保存しておく必要はありません。その後、ファイルに埋め込まれたままになります。
これで、画像をExcelに直接簡単に追加できます。以下の手順に従ってください。
複数の画像がある場合は、すべての画像を一度に選択して挿入できます(手順4を参照)。
画像を選択して端をドラッグして画像のサイズを変更することもできます。ロゴや製品の画像の場合は、画像の縦横比をそのままにしておくことをお勧めします。縦横比をそのままにするには、画像の角を使ってサイズを変更します。
上記の手順を使用してセル内に画像を配置すると、セルのサイズを変更、フィルタ処理、または非表示にした場合でも、画像はセルに固定されません。画像をセルに固定したい場合は、画像を配置したセルに固定する必要があります。
これを行うには、以下に示すように追加の手順に従う必要があります。
これで、セルを移動したり、フィルタ処理したり、非表示にしたりできます。また、画像も移動/フィルタ処理/非表示になります。
注:
この答えはこのリンクから取られました: Excelのセルに画像を挿入します 。
私のお勧めは、 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