在VBA和Excel中复制粘贴任意范围的图片

Sub CopyPasteImage()
    Dim rng As Range
    Dim pic As Picture

    ' 选择要复制的图片范围
    Set rng = Range("A1:B2")

    ' 复制图片
    rng.CopyPicture xlScreen, xlPicture

    ' 创建新的图形对象
    Set pic = ActiveSheet.Pictures.Paste

    ' 设置图形位置
    pic.Top = Range("C1").Top
    pic.Left = Range("C1").Left
End Sub