Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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
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
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?
Hi Chanel Choo,
So you managed to do it?
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
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.