如何修改Excel VBA脚本以捕获用户选中区域？

原代码核心问题是范围赋值语法错误，加上冗余操作导致运行无反应，以下是修改后的完整代码：

Option Explicit

Sub URLPictureInsert()
    Dim Pshp As Shape
    Dim xRg As Range
    Dim xCol As Long
    Dim cell As Range
    Dim filenam As String
    Dim Rng As Range
    
    On Error Resume Next
    Application.ScreenUpdating = False
    
    ' 获取用户选中的单元格区域（支持整列、整行或任意选中范围）
    Set Rng = Selection
    ' 未选中任何单元格时提示并退出
    If Rng Is Nothing Then
        MsgBox "请先选中包含图片URL的单元格区域！", vbExclamation
        GoTo Cleanup
    End If
    
    For Each cell In Rng
        filenam = Trim(cell.Value)
        ' 跳过空单元格
        If filenam = "" Then GoTo NextCell
        
        ' 直接插入图片并获取对象，避免使用Select操作
        Set Pshp = ActiveSheet.Pictures.Insert(filenam)
        If Err.Number <> 0 Then
            MsgBox "单元格 " & cell.Address & " 的URL无效：" & filenam, vbCritical
            Err.Clear
            GoTo NextCell
        End If
        
        Pshp.Placement = xlMoveAndSize
        xCol = cell.Column + 1
        Set xRg = Cells(cell.Row, xCol)
        
        With Pshp
            .LockAspectRatio = msoFalse
            .Width = 60
            .Height = 30
            .Top = xRg.Top + (xRg.Height - .Height) / 2
            .Left = xRg.Left + (xRg.Width - .Width) / 2
        End With
        
NextCell:
        Set Pshp = Nothing
    Next cell

Cleanup:
    Application.ScreenUpdating = True
End Sub

关键修改说明 #

• 修正范围获取逻辑：把原错误的Set Rng = ActiveSheet.Range(ActiveCell.EntireColumn.Select)改成Set Rng = Selection，直接捕获用户选中的任意单元格区域，支持整列、多行多列等选择。
• 强制变量声明：添加Option Explicit，避免因变量拼写错误导致的隐性bug；同时显式声明所有用到的变量。
• 移除冗余操作：删掉循环内的Range("A2").Select，该操作会干扰循环执行，完全无必要。
• 优化错误处理：
  • 先判断单元格是否为空，跳过无内容的单元格；
  • 插入图片后检查错误，若URL无效则弹出提示并跳过该单元格；
  • 增加未选中区域时的提示，避免无意义执行。
• 避免使用Select：直接通过ActiveSheet.Pictures.Insert(filenam)获取图片对象，减少屏幕闪烁和潜在的选择冲突问题。

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