Cómo borro y agrego un botón mediante VBA?

26/01/2004 - 16:23 por angel | Informe spam
Necesito borrar un botón que hay en una hoja Excel
(Hoja3) desde código VBA y poner otro botón también en la
Hoja3 con una Macro asociada a este (llamada
EjecutaProcesos).
Cómo lo puedo hacer?

Preguntas similare

Leer las respuestas

#1 Ignacio Pérez
26/01/2004 - 19:06 | Informe spam
Hola Angel:
Vendría muy bien que aclararas si el botón lo creaste a partir de la barra
de herramientas "Formularios" o "Cuadrode controles".
Y estoy pensando que quizás no te haga falta borrar el botón sino
reasignarle otra macro y cambiarle la propiedad Caption
Un saludo

"angel" escribió en el mensaje
news:3fe201c3e420$51184fa0$
Necesito borrar un botón que hay en una hoja Excel
(Hoja3) desde código VBA y poner otro botón también en la
Hoja3 con una Macro asociada a este (llamada
EjecutaProcesos).
Cómo lo puedo hacer?
#2 angel
27/01/2004 - 11:42 | Informe spam
Lo hice a partir de la barra de
herramientas "Formularios"...
El problema está también en que yo oculto y muestro hojas
en tiempo de ejecución según determiandas circunstancias
y este botón debe aparecer sólo en la última Hoja! (que
NO se cual va a ser)...

Mostrar la cita
partir de la barra
Mostrar la cita
botón sino
Mostrar la cita
Caption
Mostrar la cita
en el mensaje
Mostrar la cita
#3 Ignacio Pérez
27/01/2004 - 17:46 | Informe spam
Hola Angel:
Pues en principio y sin entrar en mas detalles estas son las líneas que te
hacen falta para conseguir Lo que buscas ahora solo te falta determinar que
evento o suceso determina que la macro se ejecute..

Sub Macro1
'Con la siguiente linea borras el Boton 1 de la hoja activa
'Como imagino que tendras el mismo boton en todas las hojas podrias
cambiar el nombre de todos los botones en el cuadro 'de nombres de Excel y
darles a todos el mismo
ActiveSheet.Shapes("Button").Delete
'Con estas lineas agregas un boton que ejecuta la macro "EjecutaProcesos"
ActiveSheet.Buttons.Add(29, 29, 83.25, 28.5).Select
With Selection
.OnAction = "EjecutaProcesos"
.Caption = "Aceptar"
.Visible = True
End With
ActiveSheet.Range("A1").Select
End Sub

"angel" escribió en el mensaje
news:4fab01c3e4c2$3ba89c40$
Lo hice a partir de la barra de
herramientas "Formularios"...
El problema está también en que yo oculto y muestro hojas
en tiempo de ejecución según determiandas circunstancias
y este botón debe aparecer sólo en la última Hoja! (que
NO se cual va a ser)...

Mostrar la cita
partir de la barra
Mostrar la cita
botón sino
Mostrar la cita
Caption
Mostrar la cita
en el mensaje
Mostrar la cita
Ads by Google
Search Busqueda sugerida