Cambiar de imagen al hacer click a un botón
hola buenos días dam,que código tendría que poner a un botón de comando en un userform
para que al momento de hacerle click me cambie la imagen que he cargado en el botón.
gracias por ayudarme y saludos.
1 respuesta
Si quieres cambiarla, pon lo siguiente
Private Sub CommandButton1_Click()
carpeta = "C:\Documents and Settings\DAMOR\Mis documentos\docs\Soporte expertos\"
CommandButton1.Picture = LoadPicture(carpeta & "agenda.jpg")
End Sub
Si quieres borrarla:
Private Sub CommandButton1_Click()
CommandButton1.Picture = LoadPicture(“”)
End Sub
Saludos. DAM
Si es lo que necesitas.
hola gracias si cambia de imagen pero cuando carga la nueva
imagen se distorsiona la imagen y no se por que.
la primera imagen que ya esta cargado en el botón es jpg
y la otra también tiene el mismo formato.
me puedes ayudar por favor.
gracias.
Primera borra con esta
CommandButton1.Picture = LoadPicture(“”)
Y luego carga la nueva imagen asì
Private Sub CommandButton1_Click()
carpeta = "C:\Documents and Settings\DAMOR\Mis documentos\docs\Soporte expertos\"
CommandButton1.Picture = LoadPicture(carpeta & "agenda.jpg")
doevents
End Sub
Agrega la instrucción doevents para actualizar.
he cometido algún error es que sigue saliendo distorsionado. este es el código q puse en el caso mio.(cambia la imagen pero sale distorsionado.
Private Sub CommandButton1_Click()
CommandButton1.Picture = LoadPicture(“”)
carpeta = "C:\Users\vargas\Desktop\prueba\" CommandButton1.Picture = LoadPicture(carpeta & "dibujo.jpg")
DoEvents
End Sub
Puede ser por la memoria de tu monitor, cierra otras aplicaciones
