Buscador de ficheros Excel (Busca, Vista Previa, Imprime y Abre) 1.2.0

Excelente aporte.

Gracias Riddle, espero que le sirva a mucha gente

Haplox lamento comunicar que arroja este error para el excel 2013 que uso

Lo siento Callao2908, está creado en Excel 2010 sobre un windows de 32 bits, no sé cómo podría arreglarlo, no tengo acceso a uno de 64 bits. A ver si alguien del foro puede echare una mano

Hola @Callao2908 y @Haplox, para la versión de Office x64 se debe agregar una pequeña instrucción al los Declare. que seria PtrSafe, esto hace compatible una instrucción de 32bits a 64bits. 

Básicamente tendrían que reemplazar las declaraciones del modulo "modPastePicture" para que queden de esta forma:

Private Declare PtrSafe Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Integer) As LongPtr
'Open the clipboard to read
Private Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
'Get a pointer to the bitmap/metafile
Private Declare PtrSafe Function GetClipboardData Lib "user32" (ByVal wFormat As Integer) As LongPtr
'Close the clipboard
Private Declare PtrSafe Function CloseClipboard Lib "user32" () As LongPtr
'Convert the handle into an OLE IPicture interface.
Private Declare PtrSafe Function OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As uPicDesc, RefIID As GUID, ByVal fPictureOwnsHandle As LongPtr, IPic As IPicture) As LongPtr
'Create our own copy of the metafile, so it doesn't get wiped out by subsequent clipboard updates.
Declare PtrSafe Function CopyEnhMetaFile Lib "gdi32" Alias "CopyEnhMetaFileA" (ByVal hemfSrc As LongPtr, ByVal lpszFile As String) As LongPtr
'Create our own copy of the bitmap, so it doesn't get wiped out by subsequent clipboard updates.
Declare PtrSafe Function CopyImage Lib "user32" (ByVal handle As LongPtr, ByVal un1 As LongPtr, ByVal n1 As LongPtr, ByVal n2 As LongPtr, ByVal un2 As LongPtr) As LongPtr
'The API format types we're interested in

Con esta modificación debería trabajar sin problemas tanto en office x86 como x64.

Saludos.

Riddle, muchas gracias, funcionó correctamente

Saludos Jorge

Muchas gracias Riddle, subo nueva vrsión con los cambios.