Creating ppt

srinivasa1 — Fri, 30 Nov 2012 03:54:46 GMT

Hi,

Im trying to create ppt for attached application but im not able to get proper result. i need in slide 1 and slide 2 in ppt as silde1 and slide 2 . can any pls guide me how i can achive this

Thanks in advance.

Re: Creating ppt

srinivasa1 — Fri, 30 Nov 2012 14:36:07 GMT

Hi,

Im trying to create ppt for attached application but im not able to get as expected. i need in sheet 1 and sheet 2 in ppt as silde1 and slide 2 . can any pls guide me how i can achive this

Thanks in advance.

Re: Creating ppt

srinivasa1 — Fri, 30 Nov 2012 18:24:56 GMT

Hi ,

Have achieved this partial but im not able to add line chart to slide 2 .i
have tried but do not got exact reason why its not added below is my script pls guide me..

sub ppt
Set PPApp = CreateObject("Powerpoint.Application")
PPApp.Visible = True ' Create a presentation
Set PPPres = PPApp.Presentations.Add
''Sheet SH01
set s=ActiveDocument.Sheets("SH01")
''Sheet SH02
set s_new=ActiveDocument.Sheets("SH02")

''GetGraphs from SH01
charts2=s.GetGraphs
''GetStraightTableBoxes from SH01
charts=s.GetStraightTableBoxes
''GetGraphs from SH02
charts2_new=s_new.GetGraphs

''Adding ppt slide
Set PPSlide = PPPres.Slides.Add(1, 1)
Set PPSlide2 = PPPres.Slides.Add(2, 1)

PPSlide.Shapes(1).Delete ' removes the title
PPSlide.Shapes(1).Delete ' removes the text box
PPSlide2.Shapes(1).Delete ' removes the title
PPSlide2.Shapes(1).Delete ' removes the text box
'vPosition=50
'' Bar Graphs
for j=lbound(charts2) to ubound(charts2)
ActiveDocument.GetSheetObject(charts2(j).getobjectid).CopyBitmapToClipboard
    MsgBox( ActiveDocument.GetSheetObject(charts2(j).getobjectid).CopyBitmapToClipboard )
'PPSlide.Shapes.Paste.Select
with PPSlide.Shapes.Paste
      .Left = 0
      .Top = 50
      .Width=400
end with
next

for i=lbound(charts) to ubound(charts)
ActiveDocument.GetSheetObject(charts(i).getobjectid).CopyBitmapToClipboard
PPSlide.Shapes.Paste.Select

next
'**********-----------Here im adding SH02 line Chart to ppt but its aadding stright table into ppt-------

Set PPSlide = Nothing
for k=lbound(charts2_new) to ubound(charts2_new)
ActiveDocument.GetSheetObject(charts2_new(k).getobjectid).CopyBitmapToClipboard

'PPSlide.Shapes.Paste.Select
with PPSlide2.Shapes.Paste
      .Left = 0
      .Top = 50
      .Width=400
end with
next
'***************----------------------

PPPres.SaveAs "C:\temp\MyPresentation11.ppt"
PPPres.Close
PPApp.Quit

Set PPSlide2 = Nothing
Set PPPres = Nothing
Set PPApp = Nothing
end sub

'-------------------------------------------------------------

Thanks

topic Creating ppt in QlikView

Creating ppt

Re: Creating ppt

Re: Creating ppt