Copy To Clipboard

[#1]

I have written this Macro for copying the active charts out of these 5 to the clipboard. But it is giving me error. Please tell me where i am doing mistake ??

Sub CopyToClipboard

Dim myArray(4)
myArray(0) = "CH05"
myArray(1) = "CH32"
myArray(2) = "CH23"
myArray(3) = "CH15"
myArray(4) = "CH04"

Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
Set objPresentation = objPPT.Presentations.Add

For each item in myArray

if ActiveDocument.GetSheetObject(item).IsActive then


Set PPSlide = objPresentation.Slides.Add(1,11)
ActiveDocument.GetSheetObject(item).CopyBitmapToClipboard
PPSlide.Shapes.Paste
end if

Next


Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing

End Sub

[jagan]

Hi,

What error you are getting?  Is MS PowerPoint installed in your machine, this works only if PowerPoint is installed in the machine.

Hope this helps you.

Regards,

Jagan.

[erichshiino]

Hi,

Sometimes, with this type of operation there is an error when QV moves too fast from one command to the other.

I suggest you include some sleep and waitforidle

please, try this:

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

ActiveDocument.GetSheetObject(item).CopyBitmapToClipboard

ActiveDocument.GetApplication.WaitForIdle

   ActiveDocument.GetApplication.Sleep 5000

  PPSlide.Shapes.Paste

ActiveDocument.GetApplication.WaitForIdle

ActiveDocument.GetApplication.Sleep 5000

If it works, you can try the script with just the waitforidle or reduce the sleep time (milisecond)

Regards,

Erich