topic Re: Export text object together with each caption to PPT using Macro in QlikView

Export text object together with each caption to PPT using Macro

Anonymous — Fri, 30 Dec 2016 05:25:56 GMT

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

Re: Export text object together with each caption to PPT using Macro

Miguel_Angel_Baeyens — Fri, 30 Dec 2016 16:36:04 GMT

Check this thread for a very similar request:Export to Excel‌. While the original poster requested excel, the issue with the caption is covered with the lines

chartCaption = tableToExport.GetCaption.Name.v

You will need to adapt the macro code to your own objects or charts.

Re: Export text object together with each caption to PPT using Macro

Anonymous — Wed, 04 Jan 2017 07:07:55 GMT

Hi Miguel

Thank you for replying.

Is this script only for Excel?

I tried it but not succeeded.

'Get the chart we want to export
Set tableToExport = ActiveDocument.GetSheetObject("CH01")
Set chartProperties = tableToExport.GetProperties
tableToExport.CopyTableToClipboard true
'Get the caption
chartCaption = tableToExport.GetCaption.Name.v
'MsgBox chartCaption

Where should I change this script?

Thank you

Kiyomi

Re: Export text object together with each caption to PPT using Macro

Miguel_Angel_Baeyens — Wed, 04 Jan 2017 11:00:22 GMT

Yes, the code as I mentioned above is only for Excel (see the name of the post and the code) and you will need to recreate it for PowerPoint. I cannot tell you from memory how it will look like but I'm sure there are some powerpoint examples in the Community you can search for and use along with mine to set up yours