只需要将以下VBA代码中红色字体,替换成需要更改的字体参数,然后将修改完成的VBA代码放入VBA编辑器中运行即可!只适合PPT2007及其以上版本!Sub change()Dim oShape As ShapeDim oSlide As SlideDim oTxtRange As TextRangeOn Error Resume Next For Each oSlide In ActivePresentation.Slides For Each oShape In oSlide.Shapes Set oTxtRange = oShape.TextFrame.TextRange If Not IsNull(oTxtRange) Then With oTx...