Modificar el tamaño de una imagen en excel macro

Respuesta de
a
Usuario
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.
Experto
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
Usuario
Gracias Bacter582 el código va de fabula ahora solo tengo que evitar que disminuya demasiado, pero es estupendo