-
1 # 時尃小屋
-
2 # 使用者86050544185
在出現的頁面中將下面一段程式碼覆蓋掉原先的程式碼：
Sub OED01() "批次修改字型格式、大小和顏色
Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error Resume Next
For Each oSlide In ActivePresentation.Slides
For Each oShape In oSlide.Shapes
Set oTxtRange = oShape.TextFrame.TextRange
If Not IsNull(oTxtRange) Then
With oTxtRange.Font
.Name = "楷體_GB2312" "改成你需要的字型
.Size = 20 "改成需要的文字大小
.Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) "改成你想要的文字顏色
End With
End If
Next
Next
End Sub
這樣ppt中的所有字型都被改變了，想要變成什麼樣的字型可在程式碼裡修改。
-
3 # 手機使用者87197936035
在出現的頁面中將下面一段程式碼覆蓋掉原先的程式碼：
Sub OED01() "批次修改字型格式、大小和顏色
Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error Resume Next
For Each oSlide In Acti
-
4 # 被你傷過的心好痛t6
邯鄲驛裡逢冬至，，抱膝燈前影伴身。
連雨不知春去，一晴方覺夏深。
國破山河在，城春草木深。
春色滿園關不住，一枝紅杏出牆來。
-
5 # 血花飛舞丨p6
竹徑通幽處，禪房花木深。
農夫方夏耘，安坐吾敢食。
白毛浮綠水，紅掌撥清波。
自古逢秋悲寂寥，我言秋日勝春朝。
-
6 # 胡梅雪670754
竹徑通幽處，禪房花木深。
野曠天低樹，江清月近人。
兩岸青山相對出，孤帆一片日邊來。
不知細葉誰裁出，二月春風似剪刀。
-
7 # 手機使用者86051900148
海內存知己，天涯若比鄰。
空山不見人，但聞人語響。
相看兩不厭，只有敬亭山。
芳菲歇去何須恨，夏木陽陰正可人。
-
8 # 回憶丶不想忘c8
春色滿園關不住，一枝紅杏出牆來。
烽火連三月，家書抵萬金。
山重水複疑無路，柳暗花明又一村。
所謂伊人，在水一方。
-
9 # 使用者7007630676
秦時明月漢時關，萬里長征人未還。
國破山河在，城春草木深。
野曠天低樹，江清月近人。
無端更渡桑乾水，卻望幷州是故鄉。
-
10 # 使用者5048176600138
花間一壺酒，獨酌無相親。
秦時明月漢時關，萬里長征人未還。
烽火連三月，家書抵萬金。
亂花漸欲迷人眼，淺草才能沒馬蹄。
冬盡今宵促，年開明日長。
好雨知時節，當春乃發生。
好雨知時節，當春乃發生。
花間一壺酒，獨酌無相親。
回覆列表
在出現的頁面中將下面一段程式碼覆蓋掉原先的程式碼：
Sub OED01() "批次修改字型格式、大小和顏色
Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error Resume Next
For Each oSlide In Acti