如何在 PowerPoint VBA 中按名稱 select 多個形狀？

Question

對於 Slide.Shapes 中的每個形狀 With Slide.Shapes("BOXNAME")

選擇名為 BOXNAME 的框，我將如何一次按名稱 select 多個形狀？

Answer 1

如果形狀被分組，您可以通過選擇組來同時 select 它們：

ActiveWindow.Selection.SlideRange.Shapes("Group 7").Select

否則，您可以創建一個形狀名稱數組，然后是 select 數組：

ActiveWindow.Selection.SlideRange.Shapes.Range(Array("Oval 6", "Rectangle 4", "AutoShape 5")).Select

Answer 2

我建議將形狀命名為 BOXNAME1、BOXNAME2、...

If i = 1 To 10
With Slide.Shapes("BOXNAME" & i)
On Error Resume Next
End With

這會將多個子例程壓縮為一個子例程。