Skip to main content
Woohoo! Qlik Community has won “Best in Class Community” in the 2024 Khoros Kudos awards!
Announcements
Nov. 20th, Qlik Insider - Lakehouses: Driving the Future of Data & AI - PICK A SESSION
cancel
Showing results for 
Search instead for 
Did you mean: 
Not applicable

Function CopyBitmapToClipboard is invalid in QV 9.0 SR2?

Hello everyone:

Did anybody test function CopyBitmap in QV 9.0 SR2?

I tried in 8.50.6326.5, it works.

But in 9.0 SR2 7320, it does not work.

Here is sample code:

ActiveDocument.GetSheetObject("CH01").CopyBitmapToClipboard

After running it, press mspaint in command line, paste into mspaint, it does not work in 9.0 SR2.

Thanks in advanced.

1 Solution

Accepted Solutions
Not applicable
Author

Hi, Haneesh:

It is fixed by QV team, I have recieved their official reply as following:

sub ImageToWord(qvPictureID, wordPictureID)
set image = ActiveDocument.GetSheetObject(qvPictureID)
ActiveDocument.GetApplication.WaitForIdle // this is key code.
Msgbox "CopyBitmapToClipboard return value is " & image.CopyBitmapToClipboard
for each f in templateWordApp.ActiveDocument.Fields
if StrComp(trim(f.code), wordPictureID)=0 then
call f.Select
templateWordApp.Selection.Paste
end if
next
end sub

View solution in original post

3 Replies
Not applicable
Author

Hi Ben,

Have you found any solution for this issue? I am using QV9 SR5 and the' CopyBitmapToClipboard' is not working.

Thanks, Haneesh

suniljain
Master
Master

1) go to setting

2) click user preferences

3) click on export tab

4) check all object in copy to clipboard

Not applicable
Author

Hi, Haneesh:

It is fixed by QV team, I have recieved their official reply as following:

sub ImageToWord(qvPictureID, wordPictureID)
set image = ActiveDocument.GetSheetObject(qvPictureID)
ActiveDocument.GetApplication.WaitForIdle // this is key code.
Msgbox "CopyBitmapToClipboard return value is " & image.CopyBitmapToClipboard
for each f in templateWordApp.ActiveDocument.Fields
if StrComp(trim(f.code), wordPictureID)=0 then
call f.Select
templateWordApp.Selection.Paste
end if
next
end sub