Funcion Shapes

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

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

...o mas corto todavia:

Sub test()
Shapes.AddShape(msoShapeRectangle, _
253.5, 153, 48.75, 38.25).Name = "Rectangulo1"
End Sub

Regards,
KL


"anonimo" wrote in message
news:

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