Class TextStyleLevels (PowerPoint VBA)

A collection of all the outline text levels. This collection always contains five members, each of which is represented by a TextStyleLevel object. To use a TextStyleLevels class variable it first needs to be instantiated, for example

Dim tsls as TextStyleLevels
Set tsls = ActivePresentation.SlideMaster.TextStyles(1).Levels

Count

Returns the number of objects in the specified collection.

Dim lngCount As Long
lngCount = ActiveWindow.Selection.SlideRange(1).TextStyles(1).Levels.Count

Item

Returns a single text style level from the specified TextStyleLevels collection.

Item (Level)

Level: The index number of the text style level in the collection to be returned.

Dim tsl As TextStyleLevel
Set tsl = ActivePresentation.SlideMaster.TextStyles(1).Levels(Level:=1)