需要更改2007下的默认输入字体,或者是同一调整所有页的字体。
谢谢
强调一下,我说的是2007
在“格式”菜单选择“替换字体”,这个替换字体的选项我找不到,大家再帮忙看看!
ç¹å»pptä¸çå·¥å
·éçå®é项éçå®ãç¶åè¾å
¥è¦å建çå®åç¹å»å建æé®ã
å¨åºç°ç页é¢ä¸å°ä¸é¢ä¸æ®µä»£ç è¦çæåå ç代ç ï¼
Sub OED01() 'æ¹éä¿®æ¹åä½æ ¼å¼ã大å°åé¢è²
Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On 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 oTxtRange.Font
.Name = "楷ä½_GB2312" 'æ¹æä½ éè¦çåä½
.Size = 20 'æ¹æéè¦çæå大å°
.Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) 'æ¹æä½ æ³è¦çæåé¢è²
End With
End If
Next
Next
End Sub
ç¶åç¹å»ä¿åæé®ï¼å ³éçªå£ï¼åå°pptç¼è¾é¡µé¢ã
å次ç¹å»å·¥å ·éçå®é项éçå®ï¼éæ©åç¼è¾å¥½çå®ï¼ç¹å»è¿è¡ï¼
è¿æ ·pptä¸çææåä½é½è¢«æ¹åäºï¼æ³è¦åæä»ä¹æ ·çåä½å¯å¨ä»£ç éä¿®æ¹ã
å¨åºç°ç页é¢ä¸å°ä¸é¢ä¸æ®µä»£ç è¦çæåå ç代ç ï¼
Sub OED01() 'æ¹éä¿®æ¹åä½æ ¼å¼ã大å°åé¢è²
Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On 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 oTxtRange.Font
.Name = "楷ä½_GB2312" 'æ¹æä½ éè¦çåä½
.Size = 20 'æ¹æéè¦çæå大å°
.Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) 'æ¹æä½ æ³è¦çæåé¢è²
End With
End If
Next
Next
End Sub
ç¶åç¹å»ä¿åæé®ï¼å ³éçªå£ï¼åå°pptç¼è¾é¡µé¢ã
å次ç¹å»å·¥å ·éçå®é项éçå®ï¼éæ©åç¼è¾å¥½çå®ï¼ç¹å»è¿è¡ï¼
è¿æ ·pptä¸çææåä½é½è¢«æ¹åäºï¼æ³è¦åæä»ä¹æ ·çåä½å¯å¨ä»£ç éä¿®æ¹ã
温馨提示:答案为网友推荐,仅供参考
第1个回答 2010-01-25
在“格式”菜单选择“替换字体”,选择你准备要替换的字体。就可以把每页的待替换字体都换成你想要的字体了。
第2个回答 2010-01-27
菜单"视图"->"母版"->"幻灯片母版",修改字体后,关闭母版即可.本回答被提问者采纳
第3个回答 2010-01-22
打开(空)文档,选择“字体”对话框,选择好你想默认的字体(前提是你已安装了此字体),然后单击对话框左下角的“默认”,再“确定”即可
第4个回答 2019-06-07
这个很简单的呢,替换字体那边有的——
2003版本在格式里下拉有替换字体,2010版本在开始里最右边有三个选项,中间的那个就是替换字体~
2003版本在格式里下拉有替换字体,2010版本在开始里最右边有三个选项,中间的那个就是替换字体~