Formatting Issue in Exporting Sheet Objects to Power Point

[#1]

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.

[#2]

Hi,

Could you post your application.

Thanks&Regards

Jai

[#3]

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

[#4]

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.

[#5]

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

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