Change font for all slides in powerpoint.

change-slides-font.vb

Sub textspace()
    Dim slide As slide
    Dim shape As shape
    Dim text As TextRange2

    For Each slide In ActivePresentation.Slides
        For Each shape In slide.Shapes
            If shape.HasTextFrame Then
                Set text = shape.TextFrame2.TextRange
                If Not IsNull(text) Then
                    With text.Font
                        .Name = "Tahoma"
                        .Spacing = 0
                    End With
                End If
            End If
        Next
    Next
End Sub