PPT_BA例子.docxVIP

能用1 Sub ChangeTextFont() Set Pages = ActivePresentation.Slides.Range pageCount = Pages.Count 第一页和最后一页跳过 For i = 2 To pageCount - 1 DoEvents ActiveWindow.View.GotoSlide Index:=i shapeCount = ActiveWindow.Selection.SlideRange.Shapes.Count For j = 1 To shapeCount ActiveWindow.Selection.SlideRange.Shapes(j).Select shapeType = ActiveWindow.Selection.SlideRange.Shapes(j).Type 1 - 自选图形 7 - 公式 13 - 图片 14 - 占位符 15 - 艺术字 17 - 文本框 19 - 表格 Debug.Print shapeType Select Case shapeType Case 1, 14, 17 Set txtRange = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange txtRange.Select If txtRange.Text Then 设置字体为宋体, 24号 With txtRange.Font .Name = 宋体 .Size = 24 End If End With 设置段落格式为1.3倍行距 With txtRange.ParagraphFormat .SpaceWithin = 1.3 End With End If Case 7, 13, 15 Case 19 End Select Next j Next i End Sub 能用2 改变所有文本框的字体颜色为黑色 Sub Macro1() For Each sld In Application.ActivePresentation.Slides For Each shp In sld.Shapes If shp.HasTextFrame Then Set txtRng = shp.TextFrame.TextRange myColor = RGB(0, 0, 0) 颜色 txtRng.Font.Color.RGB = myColor End If Next Next End Sub 能用3 Sub 替换选定字体颜色为自动() Dim A As Long Dim shape As shape Dim slide As slide Dim txt As TextRange On Error Resume Next A = InputBox(请选择要替换的颜色) If ActiveWindow.Selection.Type ppSelectionText Then MsgBox 请选中一个文本 Exit Sub End If A = ActiveWindow.Selection.TextRange.Font.Color.RGB 替换背景颜色为白色 A