3 Replies Latest reply: Jan 4, 2017 6:00 AM by Miguel Angel Baeyens de Arce RSS

    Export text object together with each caption to PPT using Macro

    横田 清美

      Hi Experts

       

      Is there any way to export captions of text objects to PPT using Macro?

       

      This is what I want to do.

       

      This is a current result

       

       

      I am using below  VB Script. It works ok but No captions.

       

      Sub ExportPPT

       

      Set objPPT = CreateObject("PowerPoint.Application")
      objPPT.Visible = True
      Set objPresentation = objPPT.Presentations.Add

       

          For i = 0 To ActiveDocument.NoOfSheets - 3
              Set MySheet = ActiveDocument.GetSheet(i)

       

              Set PPSlide = objPresentation.Slides.Add(1,12)
              ActiveDocument.ActiveSheet.CopyBitmapToClipboard

      ActiveDocument.GetSheetObject("TX01").CopyBitmapToClipboard 

      objPPT.Visible = True

              PPSlide.Shapes.Paste()
                         
          Next

       

      Set PPSlide = Nothing
      Set PPPres = Nothing

      End sub

       

      Thanks,

      Kiyomi