下面的代码工作正常（我只需要添加一些代码再次关闭文件），但现在我的2个图像粘贴在一起，我想让他们低于对方，但如何？
我想在rng1和rng2之间建立一个空白链接

Sub CopyRngToOutlook2()
Dim doc As Object, rng1 As Range, rng2 As Range

Set rng1 = Workbooks.Open(FileName:="V:\CUSTOMER SERVICE\06. PERFORMANCE BOARD\Performance 
Board BIDI BELUX-V7.xlsx").Sheets("Hoofdscherm").Range("B3:F23")
Set rng2 = Workbooks.Open(FileName:="V:\SUPPLY CHAIN TEAM\08. 
STOCKOPVOLGING\AnalyseVolledigeStock2023-2024.xlsm").Sheets("Ordermix Oude 
stock").Range("D2:G23")

With CreateObject("Outlook.Application").CreateItem(0)
    .Display
    Set doc = .GetInspector.WordEditor
    
    rng1.CopyPicture
    doc.Range(0, 0).Paste
    
    rng2.CopyPicture
    doc.Range(0, 0).Paste
    
    .To = "[email protected]"
    .Subject = "Send Email Body"
    '.send
End With
End Sub

字符串