Como deshabilitar imagenes que funcionan para ejecutar macros, al darse determinada condicion

Hola Isaac:

Creo que si se puede:

ActiveSheet.Shapes("Rectangle 1").OnAction = "Nombre_de_la_Macro" ' activa
macro

ActiveSheet.Shapes("Rectangle 1").OnAction = "" ' desactiva macro

Saludos, fer



"Isaac García López" escribió en el mensaje
news:

Necesito ayuda; quiero saber si se pueden deshabilitar botones o imagenes
que sirven para ejecutar macros, es decir que si no se cumple cierta
condicion, desaparezcan de la hoja activa y que al cumplirse aparezca,
gracias por su ayuda.

Isaac

Quiza no me explique bien, mira lo que quisiera es que una imagen que este
en la hoja activa, aparezca al cumplir una condicion, y desaparezca si no se
da la misma, ejemplo mira quiero que aparezca la imagen si no existe error
(imputable al usuario final) en una tabla de datos y si el usuario capturo
sin errores que le aparezca la imagen (como un icono de una impresora dentro
de la hoja de calculo) para que le permita imprimir esa tabla, el icono
tendra asiganada una macro que permitira imprimir esa tabla, haber si
enredo mas el asunto. Gracias Isaac
"Fer" escribió en el mensaje
news:

Hola Isaac:

Creo que si se puede:

ActiveSheet.Shapes("Rectangle 1").OnAction = "Nombre_de_la_Macro" '

activa

macro

ActiveSheet.Shapes("Rectangle 1").OnAction = "" ' desactiva macro

Saludos, fer



"Isaac García López" escribió en el mensaje
news:
> Necesito ayuda; quiero saber si se pueden deshabilitar botones o

imagenes

> que sirven para ejecutar macros, es decir que si no se cumple cierta
> condicion, desaparezcan de la hoja activa y que al cumplirse aparezca,
> gracias por su ayuda.
>
> Isaac
>
>

Hola Isaac:

if IsError then (otra puede ser If Err <> 0 then...)
Else
'crear imagen y asignarle una macro
End if

Todo esto depende del error que quieras captar.

Crear imagen: te recomiendo que la crees tal cual la quieras usando la
grabadora de macro. Por ejemplo:

ActiveSheet.Buttons.Add(141.75, 69.75, 54.75, 43.5).Select
Selection.Name = "BotonImp"
Selection.OnAction = "Permitir_Impresion"
Selection.Caption= "Imprimir"

y luego copias lo grabado (si lo puedes depurar mejor) y lo pegas siguiendo
el else


Por último, en el mismo modulo crea el

Sub Permitir_Impresion ()


Application.Sheets(1).Shapes("BotonImp").Delete 'Después de imprimir
eliminas el botón
End Sub

Disculpa si sigo sin entender, pero veo muchas formas de hacerlo, para darte
un ejemplo exacto tendría que saber los detalles


Saludos, fer

"Isaac García López" escribió en el mensaje
news:

Quiza no me explique bien, mira lo que quisiera es que una imagen que este
en la hoja activa, aparezca al cumplir una condicion, y desaparezca si no

se

da la misma, ejemplo mira quiero que aparezca la imagen si no existe error
(imputable al usuario final) en una tabla de datos y si el usuario capturo
sin errores que le aparezca la imagen (como un icono de una impresora

dentro

de la hoja de calculo) para que le permita imprimir esa tabla, el icono
tendra asiganada una macro que permitira imprimir esa tabla, haber si
enredo mas el asunto. Gracias Isaac
"Fer" escribió en el mensaje
news:
> Hola Isaac:
>
> Creo que si se puede:
>
> ActiveSheet.Shapes("Rectangle 1").OnAction = "Nombre_de_la_Macro" '
activa
> macro
>
> ActiveSheet.Shapes("Rectangle 1").OnAction = "" ' desactiva macro
>
> Saludos, fer
>
>
>
> "Isaac García López" escribió en el mensaje
> news:
> > Necesito ayuda; quiero saber si se pueden deshabilitar botones o
imagenes
> > que sirven para ejecutar macros, es decir que si no se cumple cierta
> > condicion, desaparezcan de la hoja activa y que al cumplirse

aparezca,

> > gracias por su ayuda.
> >
> > Isaac
> >
> >
>
>

hola, chicos !

Isaac García López escribio en el mensaje
... que una imagen ... aparezca al cumplir una condicion, y desaparezca si no se da la misma
... ejemplo ... que aparezca ... si no existe error (imputable al usuario final) en una tabla de datos [...]
... para que le permita imprimir esa tabla [...]

Fer escribio en el mensaje
... depende del error que quieras captar...
... veo muchas formas de hacerlo, para darte un ejemplo exacto tendria que saber los detalles

al igual que Fer... alcanzo a ver varias formas de ejecutar una macro... mostrar un objeto... [o no]

- la opcion 'mas sencilla' [segun yo] es... ->desde el codigo de la misma macro<-
[que se ejecuta por el objeto y SIN la 'necesidad' de ocultarlo o mostrarlo] p.e.
Sub La_macro_que_ejecuta_la_imagen()
If condicion_es_error Then Exit Sub

- otra forma [des]ocultando la imagen [probablemente] requerira de 'monitorear la condicion' en los eventos [p.e.]
en el modulo de codigo de 'la hoja' ==Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Shapes("Mi_figura").Visible = Not condicion_es_error
End Sub

el 'verdadero detalle' esta en 'indicarle' al codigo ->como y en que momento<- se puede 'evaluar' la 'condicion'
-> ¿cual es 'la condicion'?
-> ¿en que momento se puede 'evaluar'?
-> ¿como se determina si condicion_es_error o NO?

¿comentas datos adicionales?
saludos,
hector.