PowerPoint OLE2
Date: Tue, 16 Jan 2007 10:36:20 GMT
Message-ID: <EU1rh.58$%i7.34_at_read3.inet.fi>
Hi!
ActiveWindow.Selection.SlideRange.Shapes("AutoShape 30").Select With ActiveWindow.Selection.ShapeRange
.Adjustments.Item(1) = 2.1211
.Adjustments.Item(2) = 0.2814
End With
how would do this with OLE2?
That start goes like this. But that with-method or is it property, how that?
aWindow := OLE2.GET_OBJ_PROPERTY(application, 'ActiveWindow'); Selection := OLE2.GET_OBJ_PROPERTY(aWindow, 'Selection'); SlideRange := OLE2.GET_OBJ_PROPERTY(Selection, 'SlideRange'); Shapes := OLE2.GET_OBJ_PROPERTY(SlideRange, 'Shapes');
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 'AutoShape 30');
ppslide := OLE2.invoke_OBJ(Shapes, 'Item', args);
OLE2.DESTROY_ARGLIST(args);
Received on Tue Jan 16 2007 - 11:36:20 CET