Export every sheets to PPT

[#1]

Dear Community,

To export sheet to PPT by using macro, I have the code as shown below, but it's working weird as it only export one of the sheet image to PPT while the other 2 sheet images in blank.

Kindly give a hint to correct my code.

Sub ppt

Dim myArray(2)

myArray(0) = "SH_Media_Performance"          'my sheet ID_1

myArray(1) = "SH_Catalogues"                         'my sheet ID_2

myArray(2) = "SH_Executive_Summary"               'my sheet ID_3

Set objPPT = CreateObject("PowerPoint.Application")

objPPT.Visible = True

Set objPresentation = objPPT.Presentations.Add

For count = 0 to ubound(MyArray)

Set PPSlide = objPresentation.Slides.Add(1,11)

ActiveDocument.Sheets(myArray(count)).Activate

Set t=ActiveDocument.ActiveSheet

t.CopyBitmapToClipboard

PPSlide.Shapes.Paste

if count = 3 then exit sub

Next

Set PPSlide = Nothing

Set PPPres = Nothing

Set PPApp = Nothing

End Sub

The weird PPT came out after running the macro, the correct result should show 3 sheet images in 3 slides.

Warm regards,

Chanel

[vikasmahajan]

Hii

Sending you macros Steps for Creation of PDF you have to find little code and replace for ppt.

Hope This will help you to achieve.

Good Luck

Vikas

[#3]

Thanks Vikas for your solution, I tried to click on button "Make PDF", it prompt out the window to key in *contact number, which mean it will create pdf file and send it to phone?

After key in phone number, it mentioned "printing" but nothing appear.

May I know how to make it work?

[#4]

Hi Chanel Choo,

So you managed to do it?

[#5]

Sorry, i haven't get a solution for this yet. Hope that you can update here if you have any good solution!

Thanks and best regards,

Chanel

[#6]

Hi,

I also haven't get any solution. But I received a link from one of the community here..Maybe this can help. I'm looking on it.

http://community.qlik.com/docs/DOC-3774