nombre de botón

03/03/2008 - 17:08 por chiri | Informe spam
He puesto un botón en una hoja de cálculo, no en un formulario

¿cómo puedo saber su nombre para hacerlo no visible por código?

Siempre y cuando sea posible

Quizá la pregunta es simple, pero no he trabajado casi con excel y visual
Basic (seguro que Iván y Juan M, corroboran esta afirmación, y espero no
liarla ahora)

Preguntas similare

Leer las respuestas

#1 Ivan
03/03/2008 - 17:50 | Informe spam
hola Fernando

Mostrar la cita
creo que del lio que hablas no eres tu precisamente el culpable (basta
con que eches un ojo a mis ultimas idas de olla en el otro hilo)

en cuanto a esto =>

Mostrar la cita
por un lado, tanto donde ver su nombre, como utilizarlo en codigo,
depende de que tipo de boton hayas insertado, es decir, si es de la
barra de herramientas 'Formularios' o de la de 'Cuadro de
controles' (para comprobarlo puedes ir al menu Ver => barras de
herramientas y ver la que tienes marcada de estas dos y/o maracarlas/
desmarcarlas alternativamente para ver cual es cual)

a) en el caso de que sea de la 1ª, Formularios <OJO: no tiene nada que
ver con los formularios VBA>), el nombre te aparecera en el cuadro
nombres, a la izq. de la barra de formulas y para utilizarlo deberas
utilizar la coleccion Shapes de la hoja de calculo, pej, asi =>

Sub OcultarBoton()
ActiveSheet.Shapes("Botón 1").Visible = False
End Sub

OJO-> pon el nombre tal cual lo veas (en este caso, acento/tilde
incluida)

b) si se trata de un boton de la barra Cuadro de controles, pej. en
el cuadro propiedades (con el boton 'Modo diseño' activado => click
secunderio => propiedades), podras ver su propiedad Name, que si no lo
has modificado suele ser CommandButtonN, donde n es el nº de
commandbutton incrustado

en este caso, creo que podrias usar tambien (aparte de shapes) la
propiedad OLEObjets de la hoja

Sub OcultarBoton2()
ActiveSheet.Shapes("CommandButton1").Visible = False
End Sub
Sub MostrarBoton()
Worksheets("Hoja1").OLEObjects("CommandButton1").Visible = True
End Sub

espero te ayude

un saludo
Ivan
#2 chiri
03/03/2008 - 20:16 | Informe spam
No haces mas que solucionarme problemas

Me está quedando con mis fallitos una hoja bien maja.

He preparado un control de números negativos autocorregible y con infinitas
posibilidades.

si os interesa verlo a alguno me lo decís mi correo es

fernandoarrobaparanotenerspammollatpuntoinfo
cambia arrobaparanotenerspam por el símbolo
y punto por lo mismo

aahh Juan, tu si lo quieres también te lo mando, eeehh

y no esperéis que sea nada del otro mundo pero me gusta.
Un saludo
"Ivan" escribió en el mensaje
news:
hola Fernando

Mostrar la cita
creo que del lio que hablas no eres tu precisamente el culpable (basta
con que eches un ojo a mis ultimas idas de olla en el otro hilo)

en cuanto a esto =>

Mostrar la cita
por un lado, tanto donde ver su nombre, como utilizarlo en codigo,
depende de que tipo de boton hayas insertado, es decir, si es de la
barra de herramientas 'Formularios' o de la de 'Cuadro de
controles' (para comprobarlo puedes ir al menu Ver => barras de
herramientas y ver la que tienes marcada de estas dos y/o maracarlas/
desmarcarlas alternativamente para ver cual es cual)

a) en el caso de que sea de la 1ª, Formularios <OJO: no tiene nada que
ver con los formularios VBA>), el nombre te aparecera en el cuadro
nombres, a la izq. de la barra de formulas y para utilizarlo deberas
utilizar la coleccion Shapes de la hoja de calculo, pej, asi =>

Sub OcultarBoton()
ActiveSheet.Shapes("Botón 1").Visible = False
End Sub

OJO-> pon el nombre tal cual lo veas (en este caso, acento/tilde
incluida)

b) si se trata de un boton de la barra Cuadro de controles, pej. en
el cuadro propiedades (con el boton 'Modo diseño' activado => click
secunderio => propiedades), podras ver su propiedad Name, que si no lo
has modificado suele ser CommandButtonN, donde n es el nº de
commandbutton incrustado

en este caso, creo que podrias usar tambien (aparte de shapes) la
propiedad OLEObjets de la hoja

Sub OcultarBoton2()
ActiveSheet.Shapes("CommandButton1").Visible = False
End Sub
Sub MostrarBoton()
Worksheets("Hoja1").OLEObjects("CommandButton1").Visible = True
End Sub

espero te ayude

un saludo
Ivan
Ads by Google
Search Busqueda sugerida