Modificar el tamaño de una imagen en excel macro

Buenos días, tengo un libro con unas tablas y en alguna de las celdas tengo fotos y quisiera mediante unas imágenes prediseñadas en forma de flecha a las cuales le asignaría una macro, quisiera aumentar el tamaño y disminuirlo para hacer una especie de zoom
Que crecieran un 50% por ejemplo y luego pulsando la otra flecha que vuelva al tamaño
De origen y a su posición. Lo he intentado grabando la macro pero no entiende y yo no se explicarle.
Gracias de antemano.
1

1 respuesta

1
Respuesta de
Saludos amigo espero estés bien
Prueba con este código a ver si te resuelve el problema
Sub aumentar_50()
Dim fotografía As Variant
Application.ScreenUpdating = False
Set fotografía = ActiveCell.Worksheet.Shapes("Picture 2")
With fotografía
.Width = .Width * 1.5
.Height = .Height * 1.5
End With
Set fotografía = Nothing
Application.ScreenUpdating = True
End Sub
Sub disminuir_50()
Dim fotografía As Variant
Application.ScreenUpdating = False
Set fotografía = ActiveCell.Worksheet.Shapes("Picture 2")
With fotografía
.Width = .Width / 1.5
.Height = .Height / 1.5
End With
Set fotografía = Nothing
Application.ScreenUpdating = True
End Sub
Saludos
bacter
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje
¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas del tema Microsoft Excel o hacer tu propia pregunta: