[VBA, PPT]批量设置行距

 

 

Sub 批量设置行距()

    Dim oSlides As Slides
    Dim oSlide As Slide
    Dim oPre As Presentation
    
    Dim oShape As Shape
    Dim oTextFrame As TextFrame
    Set oPre = ActivePresentation
    Set oSlides = oPre.Slides
    '每一张幻灯
    For i = 1 To oSlides.Count
        Set oSlide = oSlides.Item(i)
        '每一段文本
        For j = 1 To oSlide.Shapes.Count
            Set oShape = oSlide.Shapes(j)
            Set oTextFrame = oShape.TextFrame
            If oTextFrame.HasText Then
                '行高1.5倍
                oTextFrame.TextRange.ParagraphFormat.SpaceWithin = 1.5
            End If
        Next
    Next
End Sub