如何通过VBA为Excel特定单元格或单元格区域添加背景图片？

你说得对，Activesheet.SetBackgroundPicture确实是用来设置整个工作表的平铺背景的，要给特定单元格或区域单独加背景，我们有两种实用的VBA实现方式，你可以根据需求选择：

方法1：插入图片并绑定到单元格区域 #

这种方式是把图片作为独立形状嵌入到单元格上方，并且和单元格的位置、大小绑定，后续调整单元格时图片会同步变化：

Sub AddPictureToRange()
    Dim targetRange As Range
    Dim picPath As String
    Dim insertedPic As Shape
    
    ' 定义目标单元格区域和完整图片路径（记得加文件扩展名，比如.jpg/.png）
    Set targetRange = ActiveSheet.Range("A1:C3")
    picPath = "C://Picture/Logo1.jpg"
    
    ' 插入图片到工作表，直接匹配目标区域的位置和尺寸
    Set insertedPic = ActiveSheet.Shapes.AddPicture( _
        Filename:=picPath, _
        LinkToFile:=msoFalse, _
        SaveWithDocument:=msoTrue, _
        Left:=targetRange.Left, _
        Top:=targetRange.Top, _
        Width:=targetRange.Width, _
        Height:=targetRange.Height _
    )
    
    ' 设置图片随单元格移动、调整大小
    insertedPic.Placement = xlMoveAndSize
    ' 可选：把图片置于底层，避免遮挡单元格内的文字内容
    insertedPic.ZOrder msoSendToBack
End Sub

方法2：用图片填充单元格背景（纹理填充） #

如果希望图片是单元格的内部填充背景（类似单元格底色的效果），可以用FillUserPicture方法，图片会自动适配单元格大小：

Sub FillRangeWithPicture()
    Dim targetRange As Range
    Dim picPath As String
    
    Set targetRange = ActiveSheet.Range("A1:C3")
    picPath = "C://Picture/Logo1.jpg" ' 务必确保路径包含正确的文件扩展名
    
    ' 将图片设为目标区域的填充背景
    targetRange.FillUserPicture picPath
End Sub

小提示 #

• 一定要给图片路径加上完整的扩展名（比如.jpg、.png），否则VBA可能无法识别文件；
• 如果只是给单个单元格加背景，把targetRange改成单个单元格即可（比如Range("B2")）；
• 方法1的图片是独立形状，后续可以调整透明度、裁剪细节；方法2的图片是填充纹理，更贴合“背景”的定位，但编辑灵活性稍弱。

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