¿Qué macros debo usar para insertar un botón que me permita buscar una imagen e insertarla dentro del mismo botón?
Necesito un botón en donde den click y te envíe a buscar una imagen entre carpetas desde tu computador, y que al momento de insertarla lo haga dentro del cuadro del botón, para que no se desajuste ni nada entre las celdas.
1 respuesta
Respuesta de Dante Amor
1
Utiliza la siguiente macro para insertar una imagen en el mismo botón que contiene la macro.
Cambia en la macro "boton1" por el nombre de tu botón.
Para saber el nombre de tu botón, selecciona el botón y mira el nombre el Cuadro de Nombres:
Pon la siguiente macro en un módulo:
Sub Insertar_Imagen()
Dim FName As Variant
FName = Application.GetOpenFilename(FileFilter:="Imágenes (*.gif;*.jpg;*.jpeg;*.bmp; *.png), *.gif;*.jpg;*.jpeg;*.bmp; *.png", _
Title:="Selecciona una imagen", MultiSelect:=False)
'
If FName = False Then Exit Sub
With ActiveSheet.DrawingObjects("boton1").ShapeRange.Fill
.Visible = msoTrue
.UserPicture FName
.TextureTile = msoFalse
End With
End SubPor último, asigna la macro a tu botón.
Presiona clic en el botón, en automático se abrirá el exploradora para que selecciones una imagen. Selecciona la imagen y presiona Aceptar.
Listo la imagen quedará en el botón.
