如何一次性更改ppt中的全部字體(已改無錯(cuò)字)
2022-09-02 05:21:22 本頁面
【正文】 充
oShape . TextFrame . TextRange . IndentLevel = 039。 表格字體設(shè)置
oShape . Table . Background . Fill . BackColor . RGB = RGB(Red : = 255 , Green : = 255 , Blue : = 255 ) 39。 底色
For i = 1 To oShape . Table . Rows . Count
For j = 1 To oShape . Table . Columns . Count
oShape . Table . Cell(i, j) . Shape . Fill . BackColor . RGB = RGB(Red : = 255 , Green : = 255 , Blue : = 255 )
With oShape . Table . Cell(i, j) . Shape . TextFrame . TextRange . Font
39。 .Name = 宋體
39。 .Size = 20
. Color . RGB = RGB(Red : = 0 , Green : = 0 , Blue : = 0 )
39。 .Bold = msoFalse 39。粗
. Italic = msoFalse 39。 斜
. Underline = msoFalse 39。 下劃線
End With
Next j
Next iNext
NextEnd Sub注意： 。如：表格的內(nèi)嵌，項(xiàng)目符號(hào)編號(hào)，圖片等。前兩項(xiàng)仍然需要手動(dòng)修改顏色。不能運(yùn)行宏的解決辦法點(diǎn)擊左上角菜單，選擇PPT選項(xiàng)信任中心宏設(shè)置，選中啟用所有和信任對(duì)VBA的訪問，確定。然后重啟PPT即可。不得用于商業(yè)用途僅供個(gè)人用于學(xué)習(xí)、研究；不得用于商業(yè)用途。For personal use only in study and research。 not for mercial use.Nur f252。r den pers246。nli
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1