Sub OED01()'批量修改字體格式、大小和顏色。
將形狀暗化為形狀
將oSlide調暗為幻燈片
Dim oTxtRange As TextRange
出錯時繼續下壹步
對於ActivePresentation中的每個oSlide。幻燈片
對於奧斯利德的每個奧沙佩。形狀
設置oTxtRange = oShape。文本框架。文本範圍
如果不是is null(otx range ),則
使用oTxtRange。字體
。Name = "bold " '到您需要的字體。
。Size = 60 '更改為您需要的文本大小。
。color.rgb = rgb(紅色:= 255，綠色:= 0，藍色:= 0)'設置為所需的文本顏色。
以…結尾
如果…就會結束
然後
然後
末端接頭
然後點擊保存按鈕關閉窗口，返回ppt編輯頁面。再次點擊工具中的宏選項中的宏，選中剛才編輯的宏，點擊運行，這樣妳的ppt中的字體就都被修改了。想改什麽字體都可以在代碼裏修改！
標題文字比較小，可以選擇修改好運@！