如何批量修改ppt字体大小及颜色 如何修改Powerpoint所有文字字体，批量修改ppt字体...
PPT\u4e2d\u5982\u4f55\u6279\u91cf\u4fee\u6539\u5b57\u4f53\u989c\u8272\u548c\u5927\u5c0f\u529e\u6cd5\u4e00\uff1a\u4fee\u6539PPT\u6a21\u677f\uff0c\u89c6\u56fe-\u6bcd\u677f-\u5e7b\u706f\u7247\u6bcd\u677f\uff0c\u8fdb\u5165\u6bcd\u677f\u540e\uff0c\u4fee\u6539\u6bcd\u677f\u4e2d\u7684\u6807\u9898\u548c\u6587\u672c\u683c\u5f0f\uff0c\u6539\u5b8c\u540e\uff0c\u5355\u51fb\u5173\u95ed\u6bcd\u677f\u89c6\u56fe\uff0c\u8fd4\u56de\u5e7b\u706f\u7247\uff0c\u6240\u6709\u5e7b\u706f\u7247\u4e2d\u7684\u5b57\u4f53\u683c\u5f0f\u5c31\u90fd\u6539\u8fc7\u6765\u4e86\u3002\u529e\u6cd5\u4e8c\uff1a\u9996\u5148\uff0c\u5c06\u4ee3\u7801\u590d\u5236\u5230\u8bb0\u4e8b\u672c\u6216word\u4e2d\uff0c\u7136\u540e\uff0c\u6253\u5f00\u4f60\u9700\u8981\u4fee\u6539\u7684PPT\uff0c\u7136\u540e\u521b\u5efa\u5b8f\uff0c\u518d\u8fd0\u884c\u5b8f\uff0c\u5373\u53ef\u5b9e\u73b0\u3002\u4ee3\u7801\u5982\u4e0b\uff1aSub OED01() '\u6279\u91cf\u4fee\u6539\u5b57\u4f53\u683c\u5f0f\u3001\u5927\u5c0f\u548c\u989c\u8272Dim oShape As ShapeDim oSlide As SlideDim oTxtRange As TextRangeOn Error Resume NextFor Each oSlide In ActivePresentation.SlidesFor Each oShape In oSlide.ShapesSet oTxtRange = oShape.TextFrame.TextRangeIf Not IsNull(oTxtRange) ThenWith oTxtRange.Font.Name = \u6977\u4f53_GB2312 '\u6539\u6210\u4f60\u9700\u8981\u7684\u5b57\u4f53.Size = 20 '\u6539\u6210\u4f60\u9700\u8981\u7684\u6587\u5b57\u5927\u5c0f.Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) '\u6539\u6210\u4f60\u60f3\u8981\u7684\u6587\u5b57\u989c\u8272End WithEnd IfNextNextEnd Sub
\u9996\u5148\uff0c\u5c06\u4ee3\u7801\u590d\u5236\u5230\u8bb0\u4e8b\u672c\u6216word\u4e2d\uff0c
\u7136\u540e\uff0c\u6253\u5f00\u4f60\u9700\u8981\u4fee\u6539\u7684PPT\uff0c
\u7136\u540e\u521b\u5efa\u5b8f\uff0c\u518d\u8fd0\u884c\u5b8f\uff01
\u5373\u53ef\u5b9e\u73b0\uff0c\u770b\u56fe\u64cd\u4f5c\u5427\uff01
Sub OED01() '\u6279\u91cf\u4fee\u6539\u5b57\u4f53\u683c\u5f0f\u3001\u5927\u5c0f\u548c\u989c\u8272
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 = "\u6977\u4f53_GB2312" '\u6539\u6210\u4f60\u9700\u8981\u7684\u5b57\u4f53
.Size = 20 '\u6539\u6210\u4f60\u9700\u8981\u7684\u6587\u5b57\u5927\u5c0f
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error Resume Next
For Each oSlide In ActivePresentation.Slides '\u904d\u5386\u6240\u6709\u7684\u5e7b\u706f\u7247
Set oShape = oSlide.Shapes("Text Box 4") '\u6bcf\u4e2a\u5e7b\u706f\u7247\u4e2d\u6587\u5b57\u533a\u57df
Set oTxtRange = oShape.TextFrame.TextRange '\u6bcf\u4e2a\u533a\u57df\u4e2d\u6587\u5b57
If Not IsNull(oTxtRange) Then
With oTxtRange.Font
.Name = "\u5b8b\u4f53" '\u6539\u6210\u4f60\u9700\u8981\u7684\u5b57\u4f53
.Size = 14 '\u6539\u6210\u4f60\u9700\u8981\u7684\u6587\u5b57\u5927\u5c0f
.Color.RGB = black '\u6539\u6210\u4f60\u60f3\u8981\u7684\u6587\u5b57\u989c\u8272End WithEnd IfNextEnd Sub
批量修改ppt字体大小及颜色的方法如下：
1、首先打开一个已经存在ppt文件。
2、打开后，ppt默认的视图是【幻灯片】视图，需要将它切换至【大纲】视图，如图：
3、所有的ppt中的文字就已经以大纲的形式显示出来了，这样对文字进行操作就可以实现了。文字进行全选，也可以使用快捷键【Ctrl+A】,如图：
4、全选之后，我们就可以调整字体了，如图：
5、同样的道理，可以使用跟字体相关的任何合法操作，比如改变字体的粗体，斜体，大小之类的功能，如图：
首先，将代码复制到记事本或word 中， 然后，打开你需要修改的PPT， 然后创建宏，再运行宏！ 即可实现，看图操作吧！ 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 '改成你需要的文字大小 Dim oSlide As Slide Dim oTxtRange As TextRange On Error Resume Next For Each oSlide In ActivePresentation.Slides '遍历所有的幻灯片 Set oShape = oSlide.Shapes("Text Box 4") '每个幻灯片中文字区域 Set oTxtRange = oShape.TextFrame.TextRange '每个区域中文字 If Not IsNull(oTxtRange) Then With oTxtRange.Font .Name = "宋体" '改成你需要的字体 .Size = 14 '改成你需要的文字大小 .Color.RGB = black '改成你想要的文字颜色End WithEnd IfNextEnd Sub
绛旓細1. 浣跨敤鈥滀富棰樺瓧浣撯濆姛鑳芥洿鎹㈠瓧浣擄細鎵撳紑PPT鏂囨。锛岀偣鍑烩滆璁♀濋夐」鍗°傚湪鈥滃彉浣撯濈粍涓紝鐐瑰嚮鈥滃瓧浣撯濅笅鎷夊垪琛ㄣ傞夋嫨棰勮鐨勫瓧浣撶粍鍚堟垨鑷畾涔夊瓧浣撶粍鍚堛備緥濡傦紝閫夋嫨鈥滆嚜瀹氫箟瀛椾綋鈥濓紝鐒跺悗閫夋嫨鎯宠鐨勪腑鏂囧瓧浣撳拰鑻辨枃瀛椾綋銆傜偣鍑烩滀繚瀛樷濅互搴旂敤鏂扮殑瀛椾綋缁勫悎鍒版暣涓枃妗ｃ傞氳繃杩欑鏂瑰紡锛屽彲浠ユ柟渚垮湴涓烘暣涓枃妗ｆ洿鎹㈢粺涓鐨...
绛旓細1銆佹墦寮PPT锛屽湪鏂囨湰妗嗕腑杈撳叆鏂囧瓧銆2銆侀噸鏂版彃鍏ユ枃鏈锛岃緭鍏ョ浉鍚岀殑鏂囧瓧锛屽ぇ灏忛鑹插瓧浣撲竴鑷銆3銆佺Щ鍔ㄧ浜屾杈撳叆鏂囧瓧鐨勬枃鏈锛屽拰绗竴涓枃鏈瀹屽叏閲嶅悎涓烘銆4銆佸崟鍑烩滃够鐏墖璁捐鈥濓紝鍗曞嚮鈥滆嚜瀹氫箟鍔ㄧ敾鈥濓紝閫夋嫨鈥滆繘鍏モ濓紝閫夋嫨鈥濈壒娈婃晥鏋溾溿5銆侀夋嫨鈥濆悜鍐呮憾瑙ｂ滐紝鍗曞嚮纭畾銆6銆侀変腑瀛椾綋锛屾敼鍙樹竴涓嬪瓧浣撻鑹...
绛旓細鍦ㄢ滃紑濮嬧濊彍鍗曚腑锛岄夋嫨鈥滄紨绀哄伐鍏封3.鍦ㄢ滄紨绀哄伐鍏封濅笅鎷夎彍鍗曚腑锛岄夋嫨鈥滄壒閲忚缃瓧浣撯4.寮瑰嚭鈥滄壒閲忚缃瓧浣撯濆璇濇锛屽湪鈥滃瓧浣撯濅笅鎷夎彍鍗曚腑锛岄夋嫨瑕佽缃殑瀛椾綋 5.璁剧疆濂藉瓧鍙峰拰鏂囧瓧棰滆壊锛屽崟鍑烩滅‘瀹氣濇寜閽6.濡備笅鍥炬墍绀猴紝ppt涓瓧浣撶粺涓淇敼瀹屾垚銆
绛旓細1銆侀鍏堟墦寮涓涓凡缁忓瓨鍦ppt鏂囦欢锛 2銆佹墦寮鍚庯紝ppt榛樿鐨勮鍥炬槸瑙嗗浘锛屾垜浠渶瑕佸皢瀹冨垏鎹㈣嚦瑙嗗浘锛 3銆佽繖鏍锋墍鏈夌殑ppt涓殑鏂囧瓧灏卞凡缁忎互澶х翰鐨勫舰寮忔樉绀哄嚭鏉ヤ簡锛岃繖鏍锋垜浠兂瀵规枃瀛楄繘琛屾搷浣滃氨鍙互瀹炵幇浜嗐傝繖鏍锋垜浠锛屾枃瀛楄繘琛屽叏閫夛紝涔熷彲浠ヤ娇鐢ㄥ揩鎹烽敭锛 4銆佸叏閫変箣鍚庯紝鎴戜滑灏卞彲浠ヨ皟鏁瀛椾綋浜嗭紱 5銆佸悓鏍风殑閬撶悊锛屾垜浠...
绛旓細1. 鎵撳紑闇瑕佷慨鏀圭殑PPT鏂囨。锛屽湪鑿滃崟鏍忔壘鍒板苟鐐瑰嚮鈥滆璁♀濋夐」銆傚湪璁捐閫夐」涓嬶紝鍙互鐪嬪埌涓绯诲垪涓庤璁＄浉鍏崇殑鍔熻兘锛屽寘鎷瓧浣撱侀鑹层佽儗鏅瓑銆2. 鍦ㄨ璁￠夐」鐨勫彸渚э紝鎵惧埌鈥滄浛鎹㈠瓧浣撯濇寜閽傝繖涓寜閽殑浣滅敤鏄皢PPT涓墍鏈夌殑鏌愪竴瀛椾綋鏇挎崲涓哄彟涓绉嶅瓧浣撱3. 鐐瑰嚮鈥滄浛鎹㈠瓧浣撯濇寜閽悗锛屼細寮瑰嚭涓涓浛鎹㈠瓧浣撶殑瀵硅瘽妗...
绛旓細缁熶竴瀛椾綋锛氬鏋滈渶瑕佺粺涓瀛椾綋锛屽彲浠ュ湪銆愯璁°戦夐」鍗′笅鎵惧埌銆愮粺涓瀛椾綋銆戦夐」锛岄夋嫨浣犻渶瑕佺殑瀛椾綋鍗冲彲銆傛柟娉曚簩锛氫娇鐢骞荤伅鐗姣嶇増 鎵撳紑骞荤伅鐗囨瘝鐗堬細鍦╓PS Office涓紝鐐瑰嚮椤堕儴鑿滃崟鏍忕殑銆愯鍥俱戦夐」锛岀劧鍚庨夋嫨銆愬够鐏墖姣嶇増銆戙傜粺涓淇敼锛氬湪骞荤伅鐗囨瘝鐗堜腑锛屼綘鍙互鏍规嵁闇瑕佺偣鍑汇愪富棰樸戙併愰鑹层戙併愬瓧浣撱戙併愭晥鏋溿...
绛旓細1銆佹墦寮ppt鏂囦欢锛岀偣鍑烩滃紑濮嬧濓紝鍦ㄢ滃紑濮嬧濊彍鍗曚腑閫夋嫨鈥滄牸寮忊濓紝鐒跺悗鐐瑰嚮鈥滄浛鎹㈠瓧浣撯;2銆佸湪鈥滄浛鎹㈠瓧浣撯濆璇濇涓紝灏嗏滄浛鎹⑩濅竴鏍忎腑鐨瀛椾綋鏀涓烘偍鎯宠鐨勫瓧浣擄紝灏嗏滄浛鎹负鈥濅竴鏍忎腑鐨勫瓧浣撴敼涓烘偍鎯宠鐨勫瓧浣擄紝鐒跺悗鐐瑰嚮鈥滄浛鎹⑩濇寜閽;3銆佺偣鍑烩滃叏閮ㄦ浛鎹⑩濇寜閽紝鍗冲彲瀹屾垚涓閿粺涓瀛椾綋鐨勬搷浣溿備簩銆佹墿灞曠浉鍏冲唴瀹...
绛旓細1銆侀鍏堥渶瑕佸厛纭濂斤紝浣犳墍闇瑕淇敼鐨PPT鍐呭锛屾兂濂芥墍瑕佷慨鏀圭殑鏍囬鍜屾鏂囩殑瀛椾綋銆傚鍥炬槸鍗冲皢瑕鏀瑰彉鐨勫瓧浣撱2銆佺劧鍚庨夋嫨鍏朵腑鐨勪竴椤靛唴瀹癸紝骞跺湪PPT瀵艰埅鏍忕偣鍑烩滆璁♀-鈥滄紨绀哄伐鍏封-鈥鎵归噺璁剧疆瀛椾綋鈥濓紝濡備笅鍥炬墍绀恒3銆佺劧鍚庡嵆鍙繘鍏ユ壒閲忚缃瓧浣撶殑鐣岄潰锛屽嵆鍙浣犳墍闇瑕佽缃殑姝ｆ枃鍜屾爣棰樿繘琛岃缃紝濡備笅鍥炬墍绀...
绛旓細鍙渶瑕佸皢浠ヤ笅VBA浠ｇ爜涓孩鑹瀛椾綋锛屾浛鎹㈡垚闇瑕鏇存敼鐨勫瓧浣撳弬鏁帮紝鐒跺悗灏淇敼瀹屾垚鐨刅BA浠ｇ爜鏀惧叆VBA缂栬緫鍣ㄤ腑杩愯鍗冲彲!鍙傚悎PPT2007鍙婂叾浠ヤ笂鐗堟湰!Sub change()Dim oShape As Shape Dim oSlide As Slide Dim oTxtRange As TextRange On Error Resume Next For Each oSlide In ActivePresentation.Slides For ...
绛旓細4銆佺偣鍑绘浛鎹㈢偣鍑诲彸涓婅鐨勬浛鎹㈡寜閽嵆鍙畬鎴瀛椾綋淇敼銆傛柟娉曚簩锛1銆佺偣鍑昏鍥惧湪PPT涓偣鍑讳笂鏂圭殑瑙嗗浘閫夐」銆2銆佺偣鍑骞荤伅鐗姣嶇増鐐瑰嚮骞荤伅鐗囨瘝鐗堥夐」銆3銆佺偣鍑诲瓧浣撶偣鍑诲瓧浣撳睍寮閫夐」锛岄夋嫨鐐瑰嚮瀛椾綋鍗冲彲缁熶竴銆傛柟娉曚笁锛1銆佺偣鍑绘紨绀哄伐鍏峰湪PPT涓偣鍑讳笂鏂圭殑婕旂ず宸ュ叿灞曞紑閫夐」銆2銆佺偣鍑鎵归噺璁剧疆瀛椾綋鐐瑰嚮鎵归噺璁剧疆瀛椾綋閫夐」銆3銆...
