Я просто делаю все фигуры одного типа с одинаковыми именами, например: Menu_BTN
на панели выбора моей фигуры.
И если я хочу изменить цвет этих кнопок, распределенных по 100 слайдам Я использую следующий макрос:
Sub ChangeMenuBTNColour()
Dim ppt As Presentation
Set ppt = ActivePresentation
Dim sld As Slide
For Each sld In ppt.Slides
Dim shp As Shape
For Each shp In sld.Shapes
If shp.Name = "Menu_BTN" Then
shp.Fill.ForeColor.RGB = RGB(252, 225, 212)
End If
Next
Next sld
End Sub