ayuda crear un rectangulo en excel

17/12/2008 - 00:58 por milhguer | Informe spam
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

Preguntas similare

Leer las respuestas

#1 San San
17/12/2008 - 03:15 | Informe spam
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ó:
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
Respuesta Responder a este mensaje
#2 Héctor Miguel
17/12/2008 - 07:00 | Informe spam
hola, (...) ???

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.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida