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.
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 Respuesta
Respuesta de bacter582
1
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
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
