Repeating slides for sheets export to PPT

[#1]

Hi,

I am exporting the two sheet objects to PPT.

i am getting the result but still i am getting the repated slides in the PPT.

I am attaching the app go through it and in the app's ppt the 3 ,4 slides are correct and 1,2 should not come in PPT.

can some one guide me to overcome these excess slides

[tresB]

Decrease the loop count:

set PPPres = objPPT.Presentations.Add

        for j = 0 to ActiveDocument.NoOfSheets - 2      // -2 instead of -1

[#3]

Thanks tresesco for respondng me

unfortunately its not yeilding the result

can you check once from your end

[tresB]

PFA and let know if this is what you want.

[#5]

Thanks

that is corect but

if we  add more objects into the slide2 or one more sheet in our macro it is not working.

I am waiting for your response

[tresB]

That won't work, because in the code, object ids are hard coded. You have to add the new objects separately or try a different method of exporting the entire sheet.

[#7]

I have come across lot many approaches for exporting the sheet objects from different sheets

can you suggest me if any

[tresB · Accepted solution]

If you want entire sheet to be exported, try:

ActiveDocument.ActiveSheet.CopyBitmapToClipboard

PFA