Guardar Imagen del Portapapeles en JPG, GIF o PNG

[RTovar]

Buenas.

Pues vengo desesperado buscando ayuda para resolver esto. Resulta que estoy haciendo un proyecto pero m he quedado estancado pues lo que quiero es que el programa guarda una imagen que se encuentra en el portapapeles; si la guarda y todo pero el problema es que se guarda en formato .BMP (demasiado grande, unos 2Mb). Mi pregunta es que si hay algun metodo para guardarla en .JPG .GIF .PNG u cualquier otro formato ligeroque no sea .BMP

este es el codigo que uso para guardar la imagen

Código:

Private Sub Capturar_Guardar(Path As String)
   
    DoEvents
   
    If Clipboard.GetFormat(vbCFBitmap) Then
   
       
        SavePicture Clipboard.GetData(vbCFBitmap), Path
        MsgBox "Imagen Guardada"
    Else
        MsgBox " Error ", vbCritical
    End If

End Sub

Private Sub Command1_Click()
    Call Capturar_Guardar("c:\pantalla\op.bmp")
End Sub

[zXxOsirisxXz]

El problema esta aki:

vbCFBitmap

Bitmap es .BMP

Buscate para ponerlo en .JPG o .NPG, luego haces una condicion para k guarde de distintas maneras.