ayuda crear un rectangulo en excel

prueba con esto
Sub Macro1()

ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 4.5, 15.75,
345.75, 36.75).Select

End Sub

como verás no incluye ApExcel
saludos
leonardo

milhguer escribió:
Mostrar la cita

hola todos tengo un problema no pudo crear un rectangulo en excel
desde visual basic

coloco este codigo
ApExcel.ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 4.5,
15.75, 345.75, 36.75).Select

y siempre me bota error halli

a que se debe, espero de su ayuda

hola, (...) ???

Mostrar la cita

hola todos tengo un problema no pudo crear un rectangulo en excel desde visual basic
coloco este codigo
ApExcel.ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 4.5, 15.75, 345.75, 36.75).Select
y siempre me bota error halli ...

(segun parece) copiaste y adaptaste desde el codigo de una macro (-grabada ?- precisamente) desde excel -?-
y es cuando el objeto-aplicacion "en curso y control" reconoce las constantes intrinsecas de su propio modelo de objetos

lo cual NO sucede (p.e.) cuando la aplicacion es una "instancia provocada" por medios de automatizacion (p.e. desde vb...)
ya que las "constantes" (xlR1C1, xlDown, etc.) no son "reconocidas" cuando la aplicacion "instanciada" NO tiene el control
y en lugar de las constantes debes utilizar sus equivalencias (numericas) precisas (segun metodo, propiedad, etc.)
(a menos que en el proyecto de macros de la aplicacion "instanciadora" establezcas una referencia al modelo de objetos de la "instanciada")

en este caso, a la constante-por-nombre msoShapeRoundedRectangle le corresponde como constante numerica: -> 5 (cinco)

puedes comprobar esos valores (en vba de excel) desde la ventana de inmediato con la sentencia:
? msoShapeRoundedRectangle y pulsas {enter}
o te puedes bajar un ZIP con las equivalencias de las constantes de excel en: http://www.cpearson.com/Zips/XLConsts2.ZIP

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.