|
|
|
Junior Member
 
участник
Last Login: 10.07.2006 14:00
Сообщ.: 14,
Visits: 131
|
|
Собственно САБЖ... Из 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")).Group
.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 ?
|
|
|
|
|
Junior Member
участник
Last Login: 10.07.2006 14:00
Сообщ.: 14,
Visits: 131
|
|
Кому интересно - получил ответ на форуме MSDN. Ниже - работающий код: Here is the extract of my real code that works: (Shapes MidShip, PlimsC, PlimsLUArc ... supposed to be already created on a sheet WSheet) Dim MidObj As Object() = New Object() {"MidShip", "PlimsC", "PlimsLUArc", "PlimsLDArc", "PlimsRUArc", "PlimsRDArc"}WSheet.Shapes.Range(MidObj).Group() |
|
|
|