ActiveSheet.Shapes("Picture 1").Select / 4GL

[andrade]

Hello

I would like to know how I can use this VBA code in 4GL:

-------------------------------------------------------------------------
ActiveSheet.Shapes("Picture 2").Select
Selection.ShapeRange.ScaleHeight 0.97, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.97, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.92, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 0.97, msoFalse, msoScaleFromBottomRight
-------------------------------------------------------------------------

I have been trying to use this correspondent below but without success:

-------------------------------------------------------------------------
CREATE "Excel.Application" chExcelApplication no-error.
chExcelApplication:Visible = yes.
chWorkbook = chExcelApplication:Workbooks:Add().
chWorkSheet = chExcelApplication:Sheets:Item(1).

/* this works */
chWorkbook:ActiveSheetictures:Insert("W:\imagens\empresas\233logorel.gif"):Select.


/* here I reveice an error message : ... shapes member not found */
chWorkbook:ActiveSheet:Shapes("Picture 1"):Select.
chWorkbook:ActiveSheet:Shapes("Picture 1"):ShapeRange:IncrementLeft("106.5").
chWorkbook:ActiveSheet:Shapes("Picture 1"):ShapeRange:IncrementTop("68.25").
chWorkbook:ActiveSheet:Shapes("Picture 1"):ShapeRange:IncrementLeft("45.75").
chWorkbook:ActiveSheet:Shapes("Picture 1"):ShapeRange:IncrementTop("74.25").
chWorkbook:ActiveSheet:Shapes("Picture 1"):ShapeRange:IncrementLeft("-151.5").
chWorkbook:ActiveSheet:Shapes("Picture 1"):ShapeRange:IncrementTop("-144#").
-------------------------------------------------------------------------

Thanks

Eduardo F. Andrade
AGE Technology
eduardo@soc.com.br