Have you tried doing a paste manually? Do you still see the copy marquee in the cell that you copied? Also, since you don't clear the clipboard, whatever you put on it should still be there after running this code.
Getclipboarddata copyimage software#
Have you tried this code on another machine? It might be that your virtual machine software is causing the problem. So about the only option would be that some other software were interfering with your clipboard. However, even empty cells constitute a clipboard data object and if oRange were actually null, you would get a NullReferenceException. If it is not ApartmentState.STA, that should be the first thing you fix.Īssuming your apartment state is correct (and in the case of a VSTO application running on the main thread, it must be since Office applications are already STA), then the only reason for GetData to return null would be if there is nothing on the clipboard. To determine whether this is the issue, you can simply add some code to call state to get the the apartment state of your current thread. That being said, you should get a on the GetData call as well. To fix that, you would need to add an ApartmentStateAttribute to your Main method, or (in the case of a background thread) you would need to call prior to starting the thread. Either way, the clipboard APIs will not work on a non-STA thread. Romys's suggestion is a handy shortcut, but GetImage() is still going to do the same thing that your code is already doing, so if your code doesn't work as written, there is no reason to think that GetImage() will.Īre you developing a VSTO application? The fact that you are getting a suggests that either you are not or that you are trying to execute this code on a background thread. This code should work as written (and I've verified that it works in VSTO 2008 / Office 2007). How can I get range that includs Objects in Excel. ) does not contain Objects like Shapes, Graphs. How can I save bitmap from clipboard that is copied from Excel?Ģ. Clipboard.GetDataObject always returns null. How can I resolve the problems below? Or any other suggestions?ġ. If (iData.GetDataPresent(DataFormats.Bitmap))īitmap bmp = (Bitmap)iData.GetData(DataFormats.Bitmap) If (null != iData) // ?iData is always null IDataObject iData = Clipboard.GetDataObject() // ? ORange.Copy() // copy the range to the Clipboard. ORange = sheetExcel.get_Range("A1", br) // Select using cells Using Excel = īr = (.XlCellType.xlCellTypeLastCell, ) HCopy = CopyEnhMetaFile(hMem, vbNullString)ĬLSIDFromString StrPtr(""), IID_IDispatch(0) HCopy = CopyImage(hMem, IMAGE_BITMAP, 0, 0, LR_COPYRETURNORG) If IsClipboardFormatAvailable(lClipFormat) Then
LClipFormat = IIf(PicType = vbPicTypeBitmap, CF_BITMAP, CF_ENHMETAFILE) Public Function RangeToPicture(rng As Range, Optional PicType As EnumPicType = vbPicTypeBitmap) As IPictureDisp Private Declare Function CopyEnhMetaFile Lib "gdi32" Alias "CopyEnhMetaFileA" (ByVal hemfSrc As Long, ByVal lpszFile As String) As Longĭim cnn As ADODB.Connection, rs As ADODB.Recordset, sql As String, sFile As String, pp As Integer Private Declare Function CopyImage Lib "user32" (ByVal handle As Long, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long Private Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Long) As Long Private Declare Function Empt圜lipboard Lib "user32" () As Long Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As PicBmp, RefIID As Any, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpsz As Any, pclsid As Any) As Long
0 kommentar(er)
