我正在将幻灯片发送到电子邮件，我想在每张幻灯片之间添加幻灯片 1 中的形状

Question

我正在使用此代码将选定的幻灯片发送到电子邮件中：

`子电子邮件_SLIDE_RANGE_Image_and_Notes2()

Dim OlApp 作为对象，OlMail 作为对象，olMailItem 作为变体，WordDoc 作为 Word.document，sld 作为幻灯片

错误继续下一步

Set OlApp = CreateObject("Outlook.Application")

设置 OlMail = OlApp.CreateItem(olMailItem)

OlMail.htmlbody = "<html><br><br>" '& 

OlMail.To = "" 

OlMail.Subject = "..." 

OlMail.display

对于 ActiveWindow.Selection.SlideRange 中的每个 sld

sld.复制

设置 WordDoc = OlMail.getinspector.wordeditor

WordDoc.Application.Selection.Paste

'在每张幻灯片后添加几个字符以将记事本文本移动到幻灯片图像下方

ActivePresentation.Slides(1).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Copy

    WordDoc.Application.Selection.Paste

ActivePresentation.Slides(sld.SlideIndex).NotesPage.Shapes(2).TextFrame.TextRange.Copy

WordDoc.Application.Selection.Paste

'在演示文稿的第一张幻灯片上添加一个思考线形状。

ActivePresentation.Slides(1).Shapes("THICKLINE").Copy

WordDoc.Application.Selection.Paste

下一个sld

设置 OlApp = 无

设置 OlMail = Nothing

设置 WordDoc = Nothing

结束子`

除了在每张幻灯片后将幻灯片 1 中的 THICKLINE 形状添加到电子邮件中外，代码效果很好。

它实际上在代码完成后添加了 THICKLINE 但是，如果有多张幻灯片，只有最后一张幻灯片在它下面有 THICKLINE。其他 THICKLINES 从其他幻灯片之间消失。

有什么建议吗？...JD