Group Shapes

[RINKS]

Hi...
i am adding two shapes on the documents through


dim sh as word.shape

sh=activedocument.shapes.addpicture()
and
sh=activedocument.shapes.addlabel()

Now how can we group these objects using VBA
code.

Thanks

 

[Chad DeMeyer]

Rinks,

dim sh as word.shape
dim shrg as word.shaperange

set sh = activedocument.shapes.addpicture()
sh.Name = "myPic" 'your choice
set sh = activedocument.shapes.addlabel()
sh.Name = "myLabel" 'your choice
set shrg = activedocument.shapes.range(array("myPic", "myLabel"))
set sh = shrg.group

Group method of a shaperange object groups the shapes in the specified range
and returns the groups shapes as a single shape object.

Regards,
Chad