Excel VBA 插入图片后锁定防止筛选列时移位的代码求助

核心问题定位 #

你当前代码无法实现图片锁定的核心原因是属性拼写错误：

• 原代码中pic.Placement = xlMoveAnSize缺少字母d，正确的枚举值为xlMoveAndSize，该属性是控制图片与单元格绑定关系的核心配置，赋值错误会导致绑定逻辑完全不生效，筛选时自然会出现移位问题。

其他可优化点 #

• 移除冗余的Select操作：无需选中单元格即可直接插入图片，减少不必要的界面交互提升运行效率
• 简化单元格引用：循环内将目标单元格提前赋值给变量，减少重复取值开销
• 列宽配置移至循环外：同列列宽只需设置一次，不需要在循环中重复执行
• 补充图片加载容错：避免无效URL导致宏直接中断运行

修正后完整代码 #

Sub getpic()
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    Application.EnableAnimations = False
    On Error Resume Next ' 容错：避免无效URL导致报错
    
    Dim targetCol As Long
    targetCol = ActiveCell.Column
    Dim urlColumn As Range
    Set urlColumn = Worksheets(1).UsedRange.Columns("A")
    
    Dim curCell As Range, pic As Shape
    Dim i As Long
    ' 列宽只需要设置一次，放在循环外
    Columns(targetCol).ColumnWidth = 50
    
    For i = 1 To urlColumn.Cells.Count
        Set curCell = Cells(i, targetCol)
        If Not IsError(curCell.Value) Then
            If Left(curCell.Value, 4) = "http" Then
                ' 无需选中单元格，直接用curCell的坐标插入图片
                Set pic = ActiveSheet.Shapes.AddPicture(curCell.Value, _
                          msoFalse, msoTrue, curCell.Left, curCell.Top, -1, -1)
                If Not pic Is Nothing Then ' 确认图片加载成功再配置属性
                    pic.LockAspectRatio = msoTrue
                    pic.Height = 115
                    ' 修正拼写错误，绑定图片与单元格
                    pic.Placement = xlMoveAndSize
                    Rows(i).RowHeight = 120
                    Set pic = Nothing
                End If
            End If
        End If
    Next

    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Application.EnableAnimations = True
    On Error GoTo 0
    
    MsgBox "Process complete!", vbOKOnly, "Completed"
End Sub

Function Col_Letter(lngCol As Long) As String
    Dim vArr
    vArr = Split(Cells(1, lngCol).Address(True, False), "$")
    Col_Letter = vArr(0)
End Function

效果验证 #

修正后插入的图片会与所在单元格完全绑定，筛选、排序、调整行高列宽时，图片都会跟随对应的单元格同步移动调整，不会出现移位漂移问题。

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