在从 Excel 导入 Outlook 的图像之间添加换行符

Question

我的两张图像粘贴在一起。我想要它们一个在另一个之下。

我想要 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

Answer 1

粘贴第一张图像后尝试运行以下代码：

doc.Range(0, 0).InsertAfter Chr(11) 'Chr(11) is a line break in Word