Condicionar ejecución de macro al tamaño de un objeto
Hola a todos, alguien sabe como condicionar la ejecución de una macro dependiendo el tamaño de una imagen? Por ejemplo que se ejecute la macro siempre y cuando la propiedad del objeto sea la siguiente:
Shapes("WebBrowser1").Height = 302.1732283465De antemano Muchas Gracias.
1 Respuesta
Respuesta de Dante Amor
1
Estuve haciendo pruebas y las imágenes no aceptan más de 2 decimales en el tamaño, tendrías que poner algo así, pero utilizando solamente 2 decimales
Sub continuar()
'
'instrucciones de tu macro
'
If ActiveSheet.Shapes("WebBrowser1").Height = 302.17 Then
'
'instrucciones de tu macro
'
Else
MsgBox "la imagen no tiene el tamaño", vbCritical
Exit Sub
End If
'
End SubPara establecer el tamaño de tu imagen puedes utilizar así:
ActiveSheet.Shapes("WebBrowser1").Height = 302.17
