是否可以选择一系列单元格并包含图表？

Question

我有一张显示报告的Excel表格。我想收看那份报告，并将其格式化为电子邮件。

我使用了一些非常有用的代码，我发现here开始了。它几乎可以工作！唯一的问题是我在工作表中的报告包含图表，我想将其复制到电子邮件中。

有没有办法将我的图表放到HTML中？或者进入正确的位置的电子邮件正文？我不认为选择范围并且选择表格上的所有图表都可行，并且不要认为它们可以同时选择它们以将它们处理成HTML。

我尝试的另一种方法是将范围复制为图片，这样可以工作，但图片非常小。有没有办法让它变大？这是代码：

Function emailaspic()

Dim rng As Range

Set rng = Sheets("Report").Range("A1:V182")
rng.Copy

'Open a new mail item
Dim outlookApp As Object
Set outlookApp = CreateObject("Outlook.Application")
Dim outMail As Object
Set outMail = outlookApp.CreateItem(olMailItem)

'Get its Word editor
outMail.Display
Dim wordDoc As word.Document
Set wordDoc = outMail.GetInspector.WordEditor

'To paste as picture
wordDoc.Range.PasteAndFormat wdChartPicture


End Function

提前谢谢大家！我已经尝试使用谷歌搜索这个确切的场景，并认为这很常见，但是没有人找到同时试图获得范围和图表的人......