-
Content Count
1,381 -
Joined
-
Last visited
-
Days Won
57
Content Type
Profiles
Forums
Downloads
File Comments posted by AlexanderS
-
-
Corregido el error que marcaba el número de día del mes anterior o siguiente si era igual al número de día actual, gracias @aaquino por avisar.
Saludos.
-
Hace 16 horas, Nicomem14 dijo:
Buenas Tardes, Creo que estoy haciendo algo mal, pero no se exactamente el que... a ver si me podéis ayudar porque cuando selecciono el Botón una vez ejecutado el formulario me dice que hay un error de compilación: "No se ha definido Sub o Function".
Hola @Nicomem14, debes asegurarte de tener activo el complemento y agregarlo a las referencias desde la ventana de VBA.
Saludos.
-
Me gusto lo de navegar por las carpetas con el web browser.
Saludos.
-
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.
-
Excelente aporte.
-
-
Increíble aporte, se nota que es un trabajo bien hecho.
Salu2
Enviar Multiples Correos (Outlook) desde Excel
in Tools
Posted
Hola @Gerson Pineda, lo que pasa es que este archivo lo tenia para uso personal con algunas columnas mas y se me olvido corregir el rango cuando las elimine.
Subo el archivo con la corrección, gracias por avisar.
Saludos.