怎么样在EXCLE表格里面插入图片，把图片放到一个小格里面，并且查看的时候方便查看

发布网友 发布时间：2022-05-09 13:30

我来回答

共3个回答

热心网友 时间：2024-01-30 20:23

如果你已经有所有苗木的图片(JPG格式)，并正确的给所有图片命名，可以用超级链接HYPERLINK将图片链接上来，
设你的图片在D盘苗木图片文件夹，你可在G3输入
=HYPERLINK("D:\苗木图片\"&B3&".JPG"，B2&"图片")下拉
要求：图片名和表中B列的名称完全相同，不同者无法显示。

热心网友 时间：2024-01-30 20:23

将你的那些图片，以你图片中“名称”来命名（名称和图片名都要是唯一）用此VBA代码可实现批量插入图片
Sub InsertPicture()
Dim MyShape As Shape
Dim r As Integer
Dim c As Integer
Dim PicPath As String
Dim Picrng As Range
With ActiveSheet
For Each MyShape In .Shapes
If MyShape.Type = 13 Then
MyShape.Delete
End If
Next
For r = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
' For c = 5 To 5
PicPath = ThisWorkbook.Path & "\图片\" & .Cells(r, 6).Text & ".png"
If Dir(PicPath) <> "" Then
Set MyShape = .Shapes.AddPicture(PicPath, False, True, 6, 6, 6, 6)
Set Picrng = .Cells(r, 9)
With MyShape
.LockAspectRatio = msoFalse
.Top = Picrng.Top + 1
.Left = Picrng.Left + 1
.Width = Picrng.Resize(3, 6).Width - 1.5
.Height = Picrng.Resize(3, 6).Height - 1.5
.TopLeftCell = ""
End With
Else
.Cells(r, 9) = "暂无照片"
End If
Next
' Next
End With
Set MyShape = Nothing
Set Picrng = Nothing
End Sub

这个代码只是个参考，具体的要根据你的文件调整图片显示的位置，如果有问题可以Hi我。

参考资料：http://zhidao.baidu.com/question/262640274.html

热心网友 时间：2024-01-30 20:24

前面两位都是高手。我的方法比较笨，就是选中你要插入图片的那个单元格，然后点击绘图工具栏那里的阴影（你可以随便选择阴影的任何一种，如果你不想要阴影效果，等一下可以取消），再点击“填充颜色”里的“填充效果”，在图片中选择你要插入的图片，再确定。这样就自动把图片插入到那个单元格，而且图片大小也自动按单元格的大小填充了。
这个方法的好处是你单元格的大小改变了，单元格里的图片也会自动跟着改变的。
对了，如果你不想要阴影，可以在插入完所有图片之后，全部选中图片，点击阴影里的“无阴影”