2014-09-01 28 views

回答

0

是否有某些原因,您無法從組內複製想要的形狀並將其粘貼到需要的位置?簡單的例子:

Dim oGroupShape As Shape 
Dim oSh As Shape 

Set oGroupShape = ActivePresentation.Slides(1).Shapes(1) 

oGroupShape.GroupItems(3).Copy 

Set oSh = ActivePresentation.Slides(1).Shapes.Paste(1) 
+0

是的,史蒂夫,形狀被粘貼,但不在組內! – ANTLRStarter 2014-09-01 20:11:47

+0

我還沒有機會玩這個遊戲,但可以取消組合(保留對組件位的引用作爲形狀範圍),然後以某種方式將新形狀添加到形狀範圍並重新組合或選擇形狀範圍然後將新形狀添加到選擇中,最後再次組合。 – 2014-09-05 14:53:54