Excel VBA录制替换图片无代码记录，咨询原因及模拟方法

Excel的宏录制器没法捕捉「更改图片」的核心操作——这个功能是Excel在UI层面封装的快捷操作，底层没有提供宏录制器能识别的公开命令，所以录制时只会记录插入、选择、调整位置这类基础交互，替换图片的关键逻辑不会被生成到代码里。

要模拟「更改图片」的操作，得手动写VBA代码，核心是用Shape.Fill.UserPicture方法替换图片源，下面是几种常用场景的实现：

1. 替换指定的单个图片 #

先确定目标图片的名称（选中图片后，Excel顶部名称框会显示它的名字，比如Picture 3），再用以下代码替换：

Sub ReplaceSpecificPicture()
    ' 指定要替换的图片名称
    Dim targetShape As Shape
    Set targetShape = ActiveSheet.Shapes("Picture 3")
    
    ' 替换为新图片的路径
    targetShape.Fill.UserPicture "C:\Users\Me\Documents\Pictures\NewImage.png"
End Sub

2. 弹出选择框让用户选图片替换 #

如果要模仿手动操作里的「浏览」选图步骤，用Application.GetOpenFilename弹出文件选择对话框：

Sub ReplacePictureWithDialog()
    Dim targetShape As Shape
    Dim imgPath As Variant
    
    ' 运行宏前先手动选中要替换的图片
    If TypeName(Selection) <> "Picture" And TypeName(Selection) <> "ShapeRange" Then
        MsgBox "请先选中要替换的图片！"
        Exit Sub
    End If
    Set targetShape = Selection.ShapeRange(1)
    
    ' 弹出选择框，仅允许选择图片格式
    imgPath = Application.GetOpenFilename( _
        FileFilter:="图片文件 (*.png;*.jpg;*.jpeg;*.gif), *.png;*.jpg;*.jpeg;*.gif", _
        Title:="选择要替换的图片")
    
    ' 用户选择文件后执行替换
    If imgPath <> False Then
        targetShape.Fill.UserPicture imgPath
    End If
End Sub

3. 批量替换多个图片 #

如果需要批量替换工作表里的所有图片，遍历所有形状并替换：

Sub BatchReplacePictures()
    Dim shp As Shape
    Dim imgPath As String
    
    imgPath = "C:\Users\Me\Documents\Pictures\BatchImage.png"
    
    ' 遍历当前工作表所有图片类形状
    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoPicture Then
            shp.Fill.UserPicture imgPath
        End If
    Next shp
End Sub

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