Quería saber como convertir este código para que permita insertar imagenes gif, png, jpg o ico. Ahora mismo sólo funciona con imagenes BMP.
El código lo copie de una página y no se muy bien como modificarlo porque no tengo mucho conocimiento de las api de windows.
Public Sub CopyButtonFace()
'Copia la imagen al Portapapeles con las funciones API de Windows
Dim hBitmap As Long
Dim lngRes As Long
Dim strfile As String
strfile = "C:\Inetpub\ftproot\imagen.gif"
Const CF_BITMAP = 2
Const LR_LOADFROMFILE = 16
Dim ret As Long
hBitmap = LoadImage(0, strfile, 0, 16, 16, LR_LOADFROMFILE)
lngRes = OpenClipboard(0)
lngRes = EmptyClipboard
lngRes = SetClipboardData(CF_BITMAP, hBitmap)
lngRes = CloseClipboard
lngRes = DeleteObject(hBitmap)
End Sub
Gracias, Saludos y Feliz Año
