VBA把一段范围的单元格截图放到另一个表格指定位置

以下是一个示例代码，可以实现将指定范围的单元格截图，并将其粘贴到另一个指定位置的单元格中。

Sub CaptureAndPaste()

    ' 定义变量
    Dim rng As Range
    Dim pic As Picture
    Dim picWidth As Long
    Dim picHeight As Long
    
    ' 指定需截图的单元格范围
    Set rng = Range("A1:B2")
    
    ' 截图并复制到剪贴板
    rng.CopyPicture xlScreen, xlBitmap
    
    ' 在指定单元格中创建新图片
    Set pic = ActiveSheet.Pictures.Paste
    
    ' 调整图片大小
    picWidth = pic.Width
    picHeight = pic.Height
    pic.Width = rng.Width
    pic.Height = rng.Height
    
    ' 移动图片到指定位置
    pic.Left = Range("D1").Left
    pic.Top = Range("D1").Top
    
End Sub

在代码中，首先指定需要截图的单元格范围，然后使用`CopyPicture`方法将该范围的内容截图并复制到剪贴板。接着，在指定单元格位置使用`Paste`方法创建新图片，并将其调整大小和移动到指定位置。最后，将图片对象赋值给变量`pic`，以便后续操作。