【正文】
1, aaa, Rectangle) 0 Then = 20 39。一次性修改所有ppt頁面中字體的顏色和大小有朋友問我如何一次性修改所有ppt頁面中字體的顏色和大小,由于powerpoint沒有現(xiàn)成的菜單,今天索性寫了一個宏,水平有限,不足之處請大家指正!Sub Macro1()For i = 1 To num = i = Then num = num 1End IfFor j = 1 To num Index:=i aaa = If InStr(1, aaa, text box) 0 Then = 20 39。在這一欄的上面有個選項“大綱/幻燈片”,點擊“大綱”,這個時候,你激活其中任意一張幻燈片,全選,然后改到自己想改的格式就可以了。Next End Sub然后點擊保存按鈕,關(guān)閉窗口,回到ppt編輯頁面。Next End If End With 改成你想要的文字顏色 39。 .Size = 20改成你需要的字體 39。然后輸入你要創(chuàng)建的宏名點擊創(chuàng)建按鈕,在出現(xiàn)的頁面中將下面一段代碼覆蓋掉原先的代碼:Sub OED01() 先看第一種方法。 如何一次性更改ppt中的全部字體?起初這個我也不知道,也是在百度上搜索得來的。僅供個人參考For personal use only in study and research。 not for mercial use如何一次性更改ppt中的全部字體?非常感謝大家!當然,我也要把這樣的好東西共享一下,為大家節(jié)約時間!一般高手都是用這種方法的,我不會用!點擊ppt中的工具里的宏選項里的宏。批量修改字體格式、大小和顏色 Dim oShape As Shape Dim oSlide As Slide Dim oTxtRange As TextRange On Er