Как выбрать несколько фигур по имени в PowerPoint VBA?

Question

Для каждой фигуры в Slide.Shapes With Slide.Shapes ("BOXNAME")

Выбирает поле с именем BOXNAME, как бы я выбрал несколько фигур по имени одновременно?

Answer 1

Если фигуры сгруппированы, вы можете выбрать их все одновременно, выбрав группу:

ActiveWindow.Selection.SlideRange.Shapes("Group 7").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

Это сведет несколько подпрограмм в одну подпрограмму.