Application.CommandBars (PowerPoint)

Returns a CommandBars collection that represents all the command bars in Microsoft PowerPoint.

Dim cbsCommandBars As Office.CommandBars
Set cbsCommandBars = CommandBars