topic Copy To Clipboard in QlikView

Copy To Clipboard

Fri, 13 Apr 2012 06:22:00 GMT

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

Copy To Clipboard

jagan — Fri, 13 Apr 2012 09:33:45 GMT

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.

Copy To Clipboard

erichshiino — Fri, 13 Apr 2012 15:28:50 GMT

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