Menú Principal

Clics de vista de contenido : 56687

Cambiar formato de imagen

Esta es una manera de escoger una imagen y guardarla en el formato deseado.
Creo que en los comentarios esta bastante explicado el procedimiento del código.
Básicamente es para guardar con un formato diferente al original.
Por las pruebas realizadas:
solo hace el cambio entre (jpg,bmp,gif) no admite guardar en *.bmp desde (png o tif)


 
Private Sub Comando20_Click() 'Declaramos la variable donde se copiara la imagen Dim RutaCopia As String 'declaramos la variable del tipo IPictureDisp Dim image As IPictureDisp 'damos el valor a RutaCopia RutaCopia = "C:\Numisoftware\DatosNumi\html\Banderas\" 'asignamos un valor a la variable 'en este caso mediante filedialog para elegirla desde el explorador Set image = LoadPicture(EscogeFichero) 'Salvamos con el nombre elegido (Me.Pais) y extensión stdole.SavePicture image, RutaCopia & Me.Pais & ".bmp" 'asignamos la imagen salvada al cuadro imagen Me.ImgBandera.Picture = RutaCopia & Me.Pais & ".bmp" Set image = Nothing End Sub