Serge_Od

Собственно САБЖ...

Из VBA просто -
Set myDocument = Worksheets(1)
With mydocument.Shapes
.AddShape(msoShapeCan, 50, 10, 100, 200).Name = "shpOne"
.AddShape(msoShapeCube, 150, 250, 100, 200).Name = "shpTwo"
With .Range(Array("shpOne", "shpTwo")).<B class=bterm>Group</B>
.Fill.PresetTextured msoTextureBlueTissuePaper
.Rotation = 45
.ZOrder msoSendToBack
End With
End With


А вот из VB.NET создать ShapeRange с несколькими Shape не удается - не знаю метод.

Dim SR as Office.Interop.Excel.ShapeRange
'тут нужен код для вставки имеющихся Shape в ShapeRange
'а потом сработало бы :
SR.Group

Так как же добавлять Shape(s) в ShapeRange ?</DIV>

Serge_Od

Кому интересно - получил ответ на форуме MSDN.
Ниже - работающий код:

Here is the extract of my real code that works:
(Shapes MidShip, PlimsC, PlimsLUArc ... supposed to be already created on a sheet WSheet)
<FONT size=2>
<FONT color=#0000ff size=2>Dim<FONT size=2> MidObj <FONT color=#0000ff size=2>As<FONT size=2> <FONT color=#0000ff size=2>Object<FONT size=2>() = <FONT color=#0000ff size=2>New<FONT size=2> <FONT color=#0000ff size=2>Object<FONT size=2>() {<FONT color=#800000 size=2>"MidShip"<FONT size=2>, <FONT color=#800000 size=2>"PlimsC"<FONT size=2>, <FONT color=#800000 size=2>"PlimsLUArc"<FONT size=2>, <FONT color=#800000 size=2>"PlimsLDArc"<FONT size=2>, <FONT color=#800000 size=2>"PlimsRUArc"<FONT size=2>, <FONT color=#800000 size=2>"PlimsRDArc"<FONT size=2>}
WSheet.Shapes.Range(MidObj).Group()</P></DIV></DIV>