Tenngo el siguiente codigo que crea una tabla en una diapositiva de power point, necesito pegar la tabla en el cuerpo del correo y enviarla mediante outlook.
El error se me da en
Dim pptDoc As PowerPoint.Document
Tengo cargada la referencia de powerpoint 16.0 objet library
Sub EnviarTablaPowerPoint()
'Crea una tabla de 6 columnas y 5 filas con datos al azar
Dim pptApp As PowerPoint.Application
Set pptApp = New PowerPoint.Application
Dim pptPres As PowerPoint.Presentation
Set pptPres = pptApp.Presentations.Add
Dim pptSlide As PowerPoint.Slide
Set pptSlide = pptPres.Slides.Add(1, ppLayoutBlank)
Dim pptTable As PowerPoint.Table
Set pptTable = pptSlide.Shapes.AddTable(5, 6).Table
For i = 1 To 5
For j = 1 To 6
pptTable.Cell(i, j).Shape.TextFrame.TextRange.Text = Int((100 - 1 + 1) * Rnd + 1)
Next j
Next i
'Crea un correo electrónico con la tabla en el cuerpo del mensaje
Dim olApp As Outlook.Application
Set olApp = New Outlook.Application
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
olMail.To = "destinatario@dominio.com"
olMail.Subject = "Tabla de datos al azar en PowerPoint"
olMail.Body = "Adjuntamos la tabla de datos al azar creada en PowerPoint:" & vbNewLine & vbNewLine
'Inserta la tabla en el cuerpo del mensaje
Dim pptDoc As PowerPoint.Document
Set pptDoc = pptApp.ActivePresentation
olMail.HTMLBody = olMail.HTMLBody & pptDoc.GetHTML(pptSlide)
'Muestra el correo electrónico para que puedas revisarlo antes de enviarlo
olMail.Display
End Sub