摘要:
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) '每一段文本 ... 阅读全文