在图表

Question

我正在尝试将60张图表从Excel工作表复制到邮件中。

我有一个有效的宏，但是它会将一些图表放在同一行，并给邮件增加了混乱。 我希望宏在我想要的地方插入换行符。 我缩短了下面的代码，因为它很长，但它包含解决此问题所需的全部内容。

我已经尝试了几个“解决方案”，但我发现的大部分内容都是在我的宏中不需要的.body，因为文本将手动放在图表之间，我相信它不适用于我的方式抓住图表。

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

感谢