2007版本ppt行間距、字體批量設(shè)置
使用菜單批量替換 字體
?
使用宏命令批量設(shè)置 字體、行間距
如果是好幾百張PPT就使用下面的代碼完成。按下ALT+F11，打開VBE對話框，單擊插入——模塊，復(fù)制下面的代碼，按F5鍵運行就可以完成PPT行間距設(shè)置。
?
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 - 藝術(shù)字
'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
'設(shè)置字體為宋體, 24號
With txtRange.Font
.Name = "宋體"
.Size = 24
End With
'設(shè)置段落格式為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
?
其實這就是一個宏命令，注意要保證你的ppt啟動了宏。
更多文章、技術(shù)交流、商務(wù)合作、聯(lián)系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯(lián)系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
