Mostrar-Ocultar Objetos

hola, Jonathan ?

... como puedo con un ckeckbox, ocultar y mostrar un objeto... en una hoja de excel
pueden ser uno o varios objetos a mostrar u ocultar a la ves.
Cual es el codigo para referirse a los objetos u objeto?

[practicamente] todos los objetos incrustados en una hoja de excel 'pasan' por la coleccion 'Shapes'
a la cual tienes acceso ya sea por indices o por nombres [en castellano o en ingles] :))

si suponemos que tu autoforma se llama "autoforma 1" y el checkbox viene de la barra 'cuadro de controles' [checkbox1]...
prueba a copiar/pegar las siguientes lineas -> en el modulo de codigo de 'esa' hoja...
Private Sub CheckBox1_Click()
Me.Shapes("autoshape 1").Visible = CheckBox1.Value = -1
SendKeys "{esc}"
End Sub

[solo que].. si piensas incrustar muchas [quizas demasiados] 'pares' de objetos [un checkbox por cada autforma]...
[probablemente] estarias corriendo el riesgo de que tu archivo pudiera llegar a quedar... 'corrupto' :-((

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Gracias Hector, una pregunta, casi siempre he visto que siempre ponen
Me.xxxx
como es que funciona ese Me, antes de un comando o instruccion ???


Héctor Miguel ha escrito:

hola, Jonathan ?

> ... como puedo con un ckeckbox, ocultar y mostrar un objeto... en una hoja de excel
> pueden ser uno o varios objetos a mostrar u ocultar a la ves.
> Cual es el codigo para referirse a los objetos u objeto?

[practicamente] todos los objetos incrustados en una hoja de excel 'pasan' por la coleccion 'Shapes'
a la cual tienes acceso ya sea por indices o por nombres [en castellano o en ingles] :))

si suponemos que tu autoforma se llama "autoforma 1" y el checkbox viene de la barra 'cuadro de controles' [checkbox1]...
prueba a copiar/pegar las siguientes lineas -> en el modulo de codigo de 'esa' hoja...
Private Sub CheckBox1_Click()
Me.Shapes("autoshape 1").Visible = CheckBox1.Value = -1
SendKeys "{esc}"
End Sub

[solo que].. si piensas incrustar muchas [quizas demasiados] 'pares' de objetos [un checkbox por cada autforma]...
[probablemente] estarias corriendo el riesgo de que tu archivo pudiera llegar a quedar... 'corrupto' :-((

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola Splinter,

En tanto vuelve Hector Miguel... el Me significa el objeto en cuyo modulo se encuentra el procedimiento. En el ejemplo de HM es la hoja que contiene la autoforma. Si la hoja se llamase Hoja1, entonces

Me.Shapes("autoshape 1").Visible

equivaldria a

Sheets("Hoja1").Shapes("autoshape 1").Visible

en cambio si el codigo estuviera en el modulo ThisWorkbook, la expresion equivaldria a

ThisWorkbook.Shapes("autoshape 1").Visible

y obviamente daria error ya que el objeto Shapes no forma parte de las propiedades del objeto Workbook.

etc.

Saludos,
KL


"Splinter" wrote in message news:
Gracias Hector, una pregunta, casi siempre he visto que siempre ponen
Me.xxxx
como es que funciona ese Me, antes de un comando o instruccion ???


Héctor Miguel ha escrito:

hola, Jonathan ?

> ... como puedo con un ckeckbox, ocultar y mostrar un objeto... en una hoja de excel
> pueden ser uno o varios objetos a mostrar u ocultar a la ves.
> Cual es el codigo para referirse a los objetos u objeto?

[practicamente] todos los objetos incrustados en una hoja de excel 'pasan' por la coleccion 'Shapes'
a la cual tienes acceso ya sea por indices o por nombres [en castellano o en ingles] :))

si suponemos que tu autoforma se llama "autoforma 1" y el checkbox viene de la barra 'cuadro de controles' [checkbox1]...
prueba a copiar/pegar las siguientes lineas -> en el modulo de codigo de 'esa' hoja...
Private Sub CheckBox1_Click()
Me.Shapes("autoshape 1").Visible = CheckBox1.Value = -1
SendKeys "{esc}"
End Sub

[solo que].. si piensas incrustar muchas [quizas demasiados] 'pares' de objetos [un checkbox por cada autforma]...
[probablemente] estarias corriendo el riesgo de que tu archivo pudiera llegar a quedar... 'corrupto' :-((

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Muchas gracias...


KL ha escrito:

Hola Splinter,

En tanto vuelve Hector Miguel... el Me significa el objeto en cuyo modulo se encuentra el procedimiento. En el ejemplo de HM es la hoja que contiene la autoforma. Si la hoja se llamase Hoja1, entonces

Me.Shapes("autoshape 1").Visible

equivaldria a

Sheets("Hoja1").Shapes("autoshape 1").Visible

en cambio si el codigo estuviera en el modulo ThisWorkbook, la expresion equivaldria a

ThisWorkbook.Shapes("autoshape 1").Visible

y obviamente daria error ya que el objeto Shapes no forma parte de las propiedades del objeto Workbook.

etc.

Saludos,
KL


"Splinter" wrote in message news:
Gracias Hector, una pregunta, casi siempre he visto que siempre ponen
Me.xxxx
como es que funciona ese Me, antes de un comando o instruccion ???


Héctor Miguel ha escrito:

> hola, Jonathan ?
>
> > ... como puedo con un ckeckbox, ocultar y mostrar un objeto... en una hoja de excel
> > pueden ser uno o varios objetos a mostrar u ocultar a la ves.
> > Cual es el codigo para referirse a los objetos u objeto?
>
> [practicamente] todos los objetos incrustados en una hoja de excel 'pasan' por la coleccion 'Shapes'
> a la cual tienes acceso ya sea por indices o por nombres [en castellano o en ingles] :))
>
> si suponemos que tu autoforma se llama "autoforma 1" y el checkbox viene de la barra 'cuadro de controles' [checkbox1]...
> prueba a copiar/pegar las siguientes lineas -> en el modulo de codigo de 'esa' hoja...
> Private Sub CheckBox1_Click()
> Me.Shapes("autoshape 1").Visible = CheckBox1.Value = -1
> SendKeys "{esc}"
> End Sub
>
> [solo que].. si piensas incrustar muchas [quizas demasiados] 'pares' de objetos [un checkbox por cada autforma]...
> [probablemente] estarias corriendo el riesgo de que tu archivo pudiera llegar a quedar... 'corrupto' :-((
>
> si cualquier duda [o informacion adicional]... comentas ?
> saludos,
> hector.