- ·上一篇:PowerPoint幻灯片当前页面怎样退出
- ·下一篇:PowerPoint幻灯片置底怎样选中
PowerPoint幻灯片怎样调所有的字体
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的属性。
其中,宏的制作你可以先录制,后修改。
录制: 工具->;宏->;录制,其它就不说了.
呵呵……
2.WPS如何更改ppt全部字体
1.首先,在WPS2013打开需要转换的word文档,Ctrl+A 组合键全部选中文档内容,单击鼠标右键,在弹出的下拉框中选择“复制”命令,也可以按【Ctrl+C】组合键。
2.启动WPS2013 PowerPoint,单击鼠标左键“WPS演示”下拉三角形按钮,选择“文件”—“新建”命令。 3.选择菜单栏中的“视图”——“普通”选项。
4.单击“大纲”标签,将光标定位到第一张幻灯片处,单击鼠标右键选择“粘贴”命令(也可用Ctrl+V组合键),将word文档中的内容粘贴到第一张幻灯片中。 5.可根据需要对文本格式进行设置,包括字体、字号、颜色等设置。
6.将光标移动到需要划分为下一张幻灯片处,直接按“enter”键,即可创建一张新的幻灯片。调整之后,很快就可以完成多张幻灯片的制作。
