各位老师，帮忙看一下。我需要把表里的图批量复制到outlook里去，网上找到代码有问题

jiaodaoniu

各位老师，帮忙解答一下
我需要把表里的图批量复制到outlook里去
这是我在网上找的代码，但是运行起来出现这个错误


1. 在VBA编辑器中，插入一个模块，并输入以下代码：Dim objChart As ChartObjectDim objMail As MailItem2. 使用For循环遍历所有图表：For Each objChart In ActiveSheet.ChartObjects3. 使用MailItem对象创建新的邮件：Set objMail = Application.CreateItem(olMailItem)4. 将图表复制到邮件正文中：objChart.CopyobjMail.GetInspector.WordEditor.Range.Paste5. 发送邮件：objMail.Send6. 结束For循环：Next objChart