如何在Excel中通过OneDrive相对路径显示PowerApp上传的图片？

没问题，我来给你几个实用的方案，帮你在Excel里直接显示OneDrive子文件夹里的图片：

1. 用Excel IMAGE函数（首选，适用于365/2021及以上版本） #

这个方法最简单，利用Excel内置的IMAGE函数结合路径拼接就能实现。因为你的Excel和图片都在同一个OneDrive驱动器下，我们可以先获取当前Excel文件的所在路径，再和单元格里的相对路径拼接成完整的图片地址。

假设你的相对路径存在A2单元格，在B2单元格输入以下公式即可：

=IMAGE(SUBSTITUTE(CELL("filename",A2),"[你的Excel文件名.xlsx]","") & SUBSTITUTE(A2,".\",""))

• 解释：CELL("filename",A2)会返回当前Excel文件的完整路径（包含文件名），用SUBSTITUTE去掉文件名部分后，就得到了Excel所在的文件夹路径；再把相对路径里的.\替换掉，拼接起来就是图片的绝对路径，IMAGE函数就能自动加载显示图片了。
• 注意：确保OneDrive同步正常，图片文件已同步到本地或在线可访问，否则图片可能加载失败。

2. VBA宏批量插入图片（适用于旧版Excel） #

如果你的Excel版本不支持IMAGE函数，可以写个简单的宏批量插入图片，效率很高：

1. 按Alt+F11打开VBA编辑器；
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」；
3. 粘贴下面的代码，按需调整工作表和路径所在的单元格范围：

Sub InsertImagesFromRelativePath()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim imgPath As String
    Dim img As Picture
    
    ' 替换成你要操作的工作表名称
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 替换成相对路径所在的单元格范围
    Set rng = ws.Range("A2:A100")
    
    For Each cell In rng
        If cell.Value <> "" Then
            ' 拼接完整的图片路径
            imgPath = ThisWorkbook.Path & "\" & Replace(cell.Value, ".\", "")
            ' 检查图片文件是否存在
            If Dir(imgPath) <> "" Then
                ' 插入图片到单元格右侧，可调整Left/Top/Width/Height参数改变位置和大小
                Set img = ws.Shapes.AddPicture( _
                    Filename:=imgPath, _
                    LinkToFile:=msoFalse, _
                    SaveWithDocument:=msoTrue, _
                    Left:=cell.Offset(0, 1).Left, _
                    Top:=cell.Offset(0, 1).Top, _
                    Width:=100, _
                    Height:=100)
            End If
        End If
    Next cell
End Sub

4. 按F5运行宏，就能自动把对应路径的图片插入到指定位置了。记得把文件另存为.xlsm格式（启用宏的工作簿）。

3. 若在Power Apps中关联使用的补充方案 #

既然图片是通过PowerApp上传的，如果你需要在Power Apps里结合Excel数据显示图片，可以用路径拼接公式生成OneDrive图片的访问链接，然后在Image控件里调用：
比如假设你的Excel里的相对路径字段叫「图片路径」，可以用类似下面的公式：

Concatenate(Left(ThisItem.'@odata.id', Find("/", ThisItem.'@odata.id', Find("/", ThisItem.'@odata.id') + 1)), "Excel_File_Name_images/", Mid(ThisItem.图片路径, InStr(ThisItem.图片路径, "\") + 1))

把这个公式绑定到Image控件的Image属性，就能直接显示图片了。

内容的提问来源于stack exchange，提问作者Konrad Psiuk