Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
 
					
				
		
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.
 
					
				
		
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
 
					
				
		
Hi Ben,
Have you found any solution for this issue? I am using QV9 SR5 and the' CopyBitmapToClipboard' is not working.
Thanks, Haneesh
 
					
				
		
 suniljain
		
			suniljain
		
		
		
		
		
		
		
		
	
			
		
		
			
					
		1) go to setting
2) click user preferences
3) click on export tab
4) check all object in copy to clipboard
 
					
				
		
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
