ppt文字怎么全部修改

1.在线等

呵呵，只找到一种改变字体的：

格式->；替换字体，然后选你想要的字体。

这种方法只能改变所有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的属性。

其中，宏的制作你可以先录制，后修改。

录制： 工具->；宏->；录制，其它就不说了.

呵呵……