topic Formatting Issue in Exporting Sheet Objects to Power Point in QlikView

Formatting Issue in Exporting Sheet Objects to Power Point

Tue, 17 Nov 2009 15:50:52 GMT

Dear All,

I am exporting the active sheet objects to Power Point using the Macro.Macro is working fine and i can able to export the Objects to the different slides.

But the problem is, alignment of the sheet objects in the Power Point slide. The objects are not copying "as they in the dashboards".

I want to copy the objects with "Same aligment and formatting as it's in the Dashboard". I did several attempts,But not able to get this :(.

Example: I have four objects in the sheet.I need to copy the four objects in one slide with same formattign and aligments.

Can anybody help in achieveing this.

Thanks in Advance.

Ram.

Formatting Issue in Exporting Sheet Objects to Power Point

Tue, 17 Nov 2009 16:55:54 GMT

Hi,

Could you post your application.

Thanks&Regards

Jai

Formatting Issue in Exporting Sheet Objects to Power Point

Tue, 17 Nov 2009 18:03:40 GMT

[View:http://community.qlik.com/cfs-file.ashx/__key/CommunityServer.Discussions.Components.Files/11/3225.ppt.zip:550:0]

Formatting Issue in Exporting Sheet Objects to Power Point

Tue, 17 Nov 2009 18:06:12 GMT

Attached the ppt in the previous reply.I need the alignment of the Graphs in the ppt as it is in the QVW.

Thanks for your help.

Formatting Issue in Exporting Sheet Objects to Power Point

Sun, 29 Nov 2009 06:38:11 GMT

Hi,

Using the expressions in bold, you should be able to do what you want.

Hope that helps.

Philippe

---------------------------------------------------------------------------------------------------------------------

sub ppt
Set PPApp = CreateObject("Powerpoint.Application")

PPApp.Visible = True ' Create a presentation
Set PPPres = PPApp.Presentations.Add

Set PPSlide = PPPres.Slides.Add(1, 1)

ActiveDocument.GetSheetObject("CH01").CopyBitmapToClipboard

PPSlide.Shapes.Paste.Select
PPApp.ActiveWindow.Selection.ShapeRange.Left = 100
PPApp.ActiveWindow.Selection.ShapeRange.Top = 50
ActiveDocument.GetSheetObject("CH02").CopyBitmapToClipboard

PPSlide.Shapes.Paste.Select
PPApp.ActiveWindow.Selection.ShapeRange.Left = 300
PPApp.ActiveWindow.Selection.ShapeRange.Top = 50
PPPres.SaveAs "D:\MyPresentation.ppt"
PPPres.Close
PPApp.Quit

Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing

end sub

----------------------------------------------------------------------------------------------------------------------------------------