如何通过VBA将工作表图片填充至矩形形状（无需文件路径）

问题原因 #

你之前的代码存在两个关键问题：

1. Pictures("Pic01").Copy 是执行复制图片到剪贴板的操作，返回的是布尔值（表示复制是否成功），无法用 Set img = ... 赋值给 Picture 对象，导致 img 变量并未正确指向目标图片。
2. Fill.UserPicture 方法仅接受图片文件路径字符串作为参数，不支持直接传入 Picture 对象，所以直接传 img 不会生效。

无需文件路径的实现代码 #

使用剪贴板中转是最直接的方案，完全不需要依赖外部文件路径：

Sub FillShapeWithWorksheetPicture()
    Dim ws As Worksheet
    Dim sourcePic As Picture
    Dim targetShape As Shape
    
    '指定工作表、目标图片和形状
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set sourcePic = ws.Pictures("Pic01")
    Set targetShape = ws.Shapes("shape1") '注意形状名称需与工作表中一致
    
    '将图片复制到剪贴板
    sourcePic.Copy
    
    '把剪贴板中的图片粘贴为形状的填充
    targetShape.Fill.Paste
End Sub

备选方案（临时文件中转） #

如果担心剪贴板内容被干扰，可通过系统临时文件中转（不会依赖外部现有文件，执行后自动删除）：

Sub FillShapeWithTempFile()
    Dim ws As Worksheet
    Dim sourcePic As Picture
    Dim targetShape As Shape
    Dim tempPath As String
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set sourcePic = ws.Pictures("Pic01")
    Set targetShape = ws.Shapes("shape1")
    
    '生成唯一临时文件路径
    tempPath = Environ("TEMP") & "\temp_img_" & Format(Now(), "YYYYMMDDHHMMSS") & ".png"
    
    '导出图片到临时文件
    sourcePic.Export Filename:=tempPath, FilterName:="PNG"
    
    '用临时文件填充形状
    targetShape.Fill.UserPicture tempPath
    
    '清理临时文件
    Kill tempPath
End Sub

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