2007版本ppt行間距、字體批量設(shè)置
使用菜單批量替換 字體
?
使用宏命令批量設(shè)置 字體、行間距
如果是好幾百?gòu)圥PT就使用下面的代碼完成。按下ALT+F11，打開(kāi)VBE對(duì)話框，單擊插入——模塊，復(fù)制下面的代碼，按F5鍵運(yùn)行就可以完成PPT行間距設(shè)置。
?
Sub ChangeTextFont()
Set pages = ActivePresentation.Slides.Range
pageCount = pages.Count
'第一頁(yè)和最后一頁(yè)跳過(guò)
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號(hào)
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
?
其實(shí)這就是一個(gè)宏命令，注意要保證你的ppt啟動(dòng)了宏。
更多文章、技術(shù)交流、商務(wù)合作、聯(lián)系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號(hào)聯(lián)系： 360901061
您的支持是博主寫(xiě)作最大的動(dòng)力，如果您喜歡我的文章，感覺(jué)我的文章對(duì)您有幫助，請(qǐng)用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點(diǎn)擊下面給點(diǎn)支持吧，站長(zhǎng)非常感激您！手機(jī)微信長(zhǎng)按不能支付解決辦法：請(qǐng)將微信支付二維碼保存到相冊(cè)，切換到微信，然后點(diǎn)擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對(duì)您有幫助就好】元
