TextRange.TrimText (PowerPoint)

Retorna um objeto TextRange que representa o texto especificado, menos os espaços do carro.

Dim treTrimText As TextRange
Set treTrimText = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.TrimText()