0

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

0

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Examina otras preguntas con la etiqueta o formula tu propia pregunta.