Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Funcion Shapes

29/08/2005 - 17:20 por Alejandro Garrammone | Informe spam
Ayuda Hacer una pregunta
Hola grupo! tengo un problema y le he dado mil vueltas y no le encuentro la
solucion.
Necesitaria crear un rectangulo en el excel (mediante codigo). El excel le
pone un nombre automáticamente. Necesito poder ponerle un nombre yo mismo
para despues poder seleccionarlo y poder borrarlo con otra macro. Aquí va el
codigo.
Dim cuadrado
Set cuadrado = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 253.5,
153#, 48.75, 38.25)
With cuadrado.Adjustments
End With

ActiveSheet.cuadrado.Select
Selection.Delete

Me da error porque me dice que el objeto cuadrado no tiene la propiedad
asociada Select.
Alguien tiene alguna idea?
Gracias.
Alejandro
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 anonimo
29/08/2005 - 19:07 | Informe spam
Prueba esto

Sub prueba()

Dim Cuadrado As Shape

Set Cuadrado = Shapes.AddShape(msoShapeRectangle, 253.5, 153#, 48.75, 38.25)

Cuadrado.Name = "Cuadrado1"

End Sub





"Alejandro Garrammone" <Alejandro
escribió en el mensaje
news:
Hola grupo! tengo un problema y le he dado mil vueltas y no le encuentro
la
solucion.
Necesitaria crear un rectangulo en el excel (mediante codigo). El excel le
pone un nombre automáticamente. Necesito poder ponerle un nombre yo mismo
para despues poder seleccionarlo y poder borrarlo con otra macro. Aquí va
el
codigo.
Dim cuadrado
Set cuadrado = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 253.5,
153#, 48.75, 38.25)
With cuadrado.Adjustments
End With

ActiveSheet.cuadrado.Select
Selection.Delete

Me da error porque me dice que el objeto cuadrado no tiene la propiedad
asociada Select.
Alguien tiene alguna idea?
Gracias.
Alejandro

Preguntas similares

 

Busqueda sugerida :