2 preguntas con respecto a SHAPES

23/05/2010 - 03:47 por Javilandr | Informe spam
1 Hola a todos, necesito saber ¿Cómo Deselecciono un Shape (un botón) 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 tenía seleccionado y
se selecciona el botón. ¿Por favor, me podríais ayudar?

2 Cómo puedo renombrar ese commandbutton1 y ponerle Botón1 por ejemplo.
 

Leer las respuestas

#1 Héctor Miguel
23/05/2010 - 04:45 | Informe spam
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.

Preguntas similares