如何将Excel VBA图片居中代码改写为A3至A100单元格循环执行代码

修改后的代码会遍历A3到A100的所有单元格，按顺序对应匹配编号从1开始的图片，自动将每张图片居中到对应单元格内，代码如下：

Sub CenterImages()
    Dim i As Integer
    Dim targetRng As Range
    ' 从第1张图片开始，对应A3为第一个目标单元格
    For i = 1 To 98
        ' 匹配对应序号的图片，匹配不到则直接退出循环
        On Error Resume Next
        Dim pic As Shape
        Set pic = ActiveSheet.Shapes("Picture " & i)
        If Err.Number <> 0 Then Exit For
        On Error GoTo 0
        
        ' 定位对应目标单元格：i=1对应A3，i=2对应A4，直到i=98对应A100
        Set targetRng = Range("A" & (i + 2))
        
        ' 对齐逻辑和原代码保持一致
        With pic
            .Top = targetRng.Top + (targetRng.Height - .Height) / 2
            .Left = targetRng.Left + (targetRng.Width - .Width) / 2
        End With
    Next i
End Sub

注意事项 #

• 代码默认适配Excel插入图片时的默认命名规则Picture + 数字，如果你手动修改过图片名称，可以自行调整Shapes的匹配规则
• 运行前请确认当前激活的工作表是你要处理的目标工作表，避免ActiveSheet指向错误
• 若你的图片数量少于98张（A3到A100共98个单元格），代码匹配不到下一张图片时会自动终止循环，不会报错

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