2 preguntas con respecto a SHAPES

hola, !

Mostrar la cita

... Como Deselecciono un Shape (un boton) cuando previamente he seleccionado todos
los que tengo en una hoja excel mediante: ActiveSheet.Shapes.SelectAll
Sin en la siguiente linea pongo: ActiveSheet.Shapes("CommandButton1").Select
el resultado es que se deseleccionan los 40 shapes que tenia seleccionado
y se selecciona el boton...

cambia la forma de seleccion por algo +/- como lo situiente:

Sub Macro1()
ActiveCell.Activate
For Each Fig In ActiveSheet.Shapes
If Fig.Name <> "CommandButton1" Then Fig.Select False
Next
End Sub

Mostrar la cita

2 Como puedo renombrar ese commandbutton1 y ponerle Boton1 por ejemplo.

con una instruccion +/- como la siguiente:

activesheet.shapes("commandbutton1").name = "Boton1"

saludos,
hector.

Lo siento pero me No funciona...
aunque creo que el error debe de ser mío...
¿es posible que Fig tenga que asignarle algo previo al bucle? ya que si le
pongo un
punto de interrupción dentro del bucle el fig.name no veo que tome ningún
valor
Por otra parte quizás no fui preciso en la explicación porque además de las
imagenes que quiero borrar también hay otros shapes tipo Activex (otros
botones) que también quiero que se seleccionen

Muchas gracias por tu respuesta y tu preocupación

"Héctor Miguel" wrote:

Mostrar la cita

hola, !

>... Como Deselecciono un Shape (un boton) cuando previamente he seleccionado todos
> los que tengo en una hoja excel mediante: ActiveSheet.Shapes.SelectAll
> Sin en la siguiente linea pongo: ActiveSheet.Shapes("CommandButton1").Select
> el resultado es que se deseleccionan los 40 shapes que tenia seleccionado
> y se selecciona el boton...

cambia la forma de seleccion por algo +/- como lo situiente:

Sub Macro1()
ActiveCell.Activate
For Each Fig In ActiveSheet.Shapes
If Fig.Name <> "CommandButton1" Then Fig.Select False
Next
End Sub

> 2 Como puedo renombrar ese commandbutton1 y ponerle Boton1 por ejemplo.

con una instruccion +/- como la siguiente:

activesheet.shapes("commandbutton1").name = "Boton1"

saludos,
hector.


.

hola, !

Mostrar la cita

Lo siento pero me No funciona... es posible que Fig tenga que asignarle algo previo al bucle?
ya que si le pongo un punto de interrupcion dentro del bucle el fig.name no veo que tome ningun valor

si acostumbras la declaracion "Option Explicit" deberas primero declarar variables y tipos p.e. Dim Fig As Shape
(aunque obtendrias mensaje de error de compilacion por variables no declaradas) -???-

Mostrar la cita

Por otra parte quizas no fui preciso en la explicacion porque ademas de las imagenes que quiero borrar
tambien hay otros shapes tipo Activex (otros botones) que tambien quiero que se seleccionen

existen varias formas de condicionar/filtrar/... objetos "shape" (segun su tipo, nombre, etc.)
solo que la coleccion "shapes" es sumamente variada y no se alcanzo a "ver" (en el mensaje)
=> cual es tu necesidad/situacion/... real a resolver ?

saludos,
hector.

Muchas gracias, me bastó con dimensionar Fig como shape... que cabeza la
mía...eneromente agradecido.

"Héctor Miguel" wrote:

Mostrar la cita

hola, !

> Lo siento pero me No funciona... es posible que Fig tenga que asignarle algo previo al bucle?
> ya que si le pongo un punto de interrupcion dentro del bucle el fig.name no veo que tome ningun valor

si acostumbras la declaracion "Option Explicit" deberas primero declarar variables y tipos p.e. Dim Fig As Shape
(aunque obtendrias mensaje de error de compilacion por variables no declaradas) -???-

> Por otra parte quizas no fui preciso en la explicacion porque ademas de las imagenes que quiero borrar
> tambien hay otros shapes tipo Activex (otros botones) que tambien quiero que se seleccionen

existen varias formas de condicionar/filtrar/... objetos "shape" (segun su tipo, nombre, etc.)
solo que la coleccion "shapes" es sumamente variada y no se alcanzo a "ver" (en el mensaje)
=> cual es tu necesidad/situacion/... real a resolver ?

saludos,
hector.


.