Set slds = ActivePresentation.Slides(1) Dim sh as Shape = Nothing For Each sh in slds.Shapes 'do some action Next sh
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)