Database 如何用图片显示数据库中的数据？

从这一点来看，如何：

---

如果我在每个数据（超链接或注释）中添加图片，是否可以用图片显示该数据？？？

我想，您没有直接的方法在Excel中使用SQL处理图片

但有一个从文件夹粘贴图片的选项

第1步。 使用SQL发出请求并获取表中每个图片的完整路径，例如：

'C:\Users\Usermname\Pictures\1.png'

=>

第2步。 使用VBA代码将图片粘贴到表中：

Option Explicit

Sub test()
Dim i
Call KillAllPics("Sheets1")
For i = 1 To 7
    Call InsertPics(Range("B1").Offset(i - 1, 0), _
    Range("A1").Offset(i - 1, 0).Value, 100)
Next i
End Sub

Sub KillAllPics(SheetName As String)
Dim Shape As Shape
For Each Shape In Sheets(SheetName).Shapes
   If Shape.Type = 13 Then Shape.Delete
Next Shape
End Sub

Sub InsertPics(rng As Range, link As String, heigth As Integer)
' rng -- where to paste image
' link -- text link with image
' heigth -- change heigth of cell with picture
If Dir(link) <> "" Then
    rng.RowHeight = heigth
    Dim L, T, W, H

    Dim objImage
    With rng
        T = .Top + 2
        H = .Height * 0.95
        L = .Left + 2
    End With

    Set objImage = CreateObject("WIA.ImageFile")

    objImage.LoadFile link
        W = objImage.Width * (H / objImage.Height)
        If W > rng.Width Then
        W = rng.Width * 0.95
        H = objImage.Height * (W / objImage.Width)
    End If

    ActiveSheet.Shapes.AddPicture link, False, True, L, T, W, H
End If
End Sub

选项显式
子测试（）
昏暗的我
调用KillAllPics（“Sheets1”）
对于i=1到7
调用InsertPics（范围（“B1”）。偏移量（i-1，0）_
范围（“A1”）。偏移量（i-1，0）。值，100）
接下来我
端接头
子KillAllPics（图纸名称为字符串）
像形状一样暗淡的形状
对于图纸中的每个形状（SheetName）。形状
如果Shape.Type=13，则Shape.Delete
下一个形状
端接头
子插入图片（rng作为范围，链接作为字符串，高度作为整数）
'rng--将图像粘贴到何处
'链接--带有图像的文本链接
'高度--用图片更改单元格的高度
如果目录（链接）“，则
rng.RowHeight=高度
尺寸L、T、W、H
模糊对象图像
带rng
T=.Top+2
H=.高度*0.95
L=.左+2
以
设置objImage=CreateObject（“WIA.ImageFile”）
objImage.LoadFile链接
W=对象图像宽度*（H/对象图像高度）
如果W>rng.宽度，则
W=rng.宽度*0.95
H=对象图像高度*（W/对象图像宽度）
如果结束
ActiveSheet.Shapes.AddPicture链接，False，True，L，T，W，H
如果结束
端接头

---

此代码首先从工作表中删除旧图片，然后将图片粘贴到单元格中。它还适合每个图片，并将其调整为单元格大小。

是否使用指向文件夹中图片的超链接？我的意思是excel，这应该是使用excel作为数据库的解决方案我的意思是在数据表中的每个数据中向excel添加图片，我希望在过滤数据时在视图表中也显示图片很棒，但是我可以像链接一样将此功能集成到系统中吗？？对不起，我是新手。