Merge Cells using OLE2

[krindler]

Hello...

Does anyone have an example of how to Merge 2 cells together using OLE2?

Thanks In Advance!!

 

[sfvb]

Here's one way to do it.

   args := OLE2.CREATE_ARGLIST; 
   OLE2.ADD_ARG(args, 'D54:E54');
   Range := OLE2.GET_OBJ_PROPERTY(Worksheet, 'Range', args);
   OLE2.DESTROY_ARGLIST(args);

   OLE2.INVOKE(Range, 'Merge');  
   OLE2.RELEASE_OBJ(Range);