在线等！！PPT如何改全部字体？

呵呵，只找到一种改变字体的：
格式－>替换字体，然后选你想要的字体。
这种方法只能改变所有ppt的字体，不能改变字号，颜色等。
其它弯备可以查查vba。
获得每张ppt的所有文本框，设置它的字体。

你可以录制一个宏，具体是
ctr+a选中一页中的所有东西，然后改字体。最后结束录制。然后对每一页都做这个宏。

最好是写vba啦。
可以把上面两个结合起来用。

好了。现在搞定了。

你可以写一个宏，内容是这样：

Sub Macro1()
'
' 宏由 heno 记录，日期: 2006-4-29
'
Set mySlides = ActivePresentation.Slides.Range
iCount = mySlides.count
For i = 1 To iCount
DoEvents
ActiveWindow.View.GotoSlide Index:=i
iCunCount = ActiveWindow.Selection.SlideRange.Shapes.count

For j = 1 To iCunCount

ActiveWindow.Selection.SlideRange.Shapes(j).Select
iShapeType = ActiveWindow.Selection.SlideRange.Shapes(j).Type
'1--自选图形
'7---公式 、（图表、WORD表格、组织结构图等 OLE）
'17--文本框 19--表格 15--艺术字 14--占位符
'13---图片
' Debug.Print iShapeType

Select Case iShapeType
Case 1, 14, 17
Set tx = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange
tx.Select
If tx.Text <> "" Then
With tx.Font
.Color.RGB = RGB(Red:=255, Green:=0, Blue:=102)
.Name = "Palatino"
End With
End If
Case 7, 13, 15 '图片、公式不处理
Case 19 '表格不处理
End Select
Next j
Next i

End Sub

其中，你只要把
With tx.Font
.Color.RGB = RGB(Red:=255, Green:=0, Blue:=102)
.Name = "Palatino"
End With
里的东西改拿闹橡成你想要的就行了。
具体font属性请参看vb中font的属性。

其中，宏的制作你可以先录制，后修改。
录制消旁： 工具->宏->录制,其它就不说了.
呵呵……