在图表之间添加换行符

我正在试图从Excel表复制60个图表到邮件。

我有一个工作的macros，但它把一些图表在同一行，并添加了邮件混乱。 我希望macros在我想要的地方插入换行符。 我缩短了下面的代码，因为它很长，但它包含了解决这个问题所需要的一切。

我已经尝试了几个“解决scheme”，但我发现大部分是使用。我不需要在我的macros作为文本将手动放在图表之间，我相信这将无法与我抓住图表。

Sub Mail() Set mailApp = CreateObject("Outlook.Application") Set Mail = mailApp.CreateItem(olMailItem) Mail.Display Set wEditor = mailApp.ActiveInspector.WordEditor ActiveSheet.ChartObjects("Chart 152").Activate ActiveChart.ChartArea.Copy wEditor.Application.selection.Paste ActiveSheet.ChartObjects("Chart 154").Activate ActiveChart.ChartArea.Copy wEditor.Application.selection.Paste ActiveSheet.ChartObjects("Chart 6").Activate ActiveChart.ChartArea.Copy wEditor.Application.selection.Paste ActiveSheet.ChartObjects("Chart 14").Activate ActiveChart.ChartArea.Copy wEditor.Application.selection.Paste *Line break here* ActiveSheet.ChartObjects("Chart 15").Activate ActiveChart.ChartArea.Copy wEditor.Application.selection.Paste End Sub 

谢谢