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.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
23/05/2010 - 04:45 | Informe spam
hola, !

Mostrar la cita
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
con una instruccion +/- como la siguiente:

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

saludos,
hector.
#2 Javilandr
23/05/2010 - 11:12 | Informe spam
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
#3 Héctor Miguel
24/05/2010 - 04:16 | Informe spam
hola, !

Mostrar la cita
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
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.
#4 Javilandr
24/05/2010 - 22:55 | Informe spam
Muchas gracias, me bastó con dimensionar Fig como shape... que cabeza la
mía...eneromente agradecido.

"Héctor Miguel" wrote:

Mostrar la cita
Ads by Google
Search Busqueda sugerida