This example adds a slide that contains both a title and a three-item list to the active presentation, sets the title and list to be dimmed after being built, and sets the color that each of them will be dimmed to.
With ActivePresentation.Slides.Add(2, ppLayoutText).Shapes
With .Item(1)
.TextFrame.TextRange.Text = "Sample title"
With .AnimationSettings
.TextLevelEffect = ppAnimateByAllLevels
.AfterEffect = ppAfterEffectDim
.DimColor.SchemeColor = ppShadow
.Animate = True
End With
End With
With .Item(2)
.TextFrame.TextRange.Text = "Item one" _
& Chr(13) & "Item two"
With .AnimationSettings
.TextLevelEffect = ppAnimateByFirstLevel
.AfterEffect = ppAfterEffectDim
.DimColor.RGB = RGB(100, 150, 130)
.Animate = True
End With
End With
End With