VBA：如何執行上的陣列

Question

在VBA用於PowerPoint，據我所知，這個代碼獲取在活動窗口僅第一形狀，並推動它的具體內容的操作：

Set oShape = oSlide.Shapes(1) 

oShape.Left = oShape.Left + 5 

如果我想推動所有的形狀，我會用這個循環。

但是，我怎樣才能根據它們的數量得到並且只移動某些形狀？

例如，假設我在活動窗口中只有3個形狀。如果我想推動形狀1和形狀3，但我不想觸摸形狀2，我該怎麼做？

Answer 1

如果您想通過數字指定特定的形狀，使用這樣的：

For Each shapeNum In Array(1, 3, 5, 9, 10) 
    Set oShape = oSlide.Shapes(shapeNum) 

    oShape.Left = oShape.Left + 5 
Next shapeNum 

如果你只是想隨意移動一定的形狀，然後用這個：

For shapeNum = 1 To oSlide.Shapes.Count 
    If Rnd < 0.5 Then ''1 in 2 chance 
     Set oShape = oSlide.Shapes(shapeNum) 

     oShape.Left = oShape.Left + 5 
    End If 
Next shapeNum 

如果你想要別的東西，把細節添加到你的問題。