如何用代码把页面设置为Arial字体48号大小，背景绿色

zzpsx

如何用代码把页面设置为Arial字体48号大小，背景绿色.rar (54.81 KB, 下载次数: 4)

2021-11-16 07:45 上传

点击文件名下载附件

ppt 2016中无法录制宏

shenjianrong163

1. Sub test()
   
2.     Dim mySlide As Slide
   
3.     Dim myShape As Shape
   
4.     Dim myRng   As TextRange
   
5.     With ActivePresentation
   
6.         .SlideMaster.Background.Fill.ForeColor.RGB = RGB(169, 209, 142)
   
7.         For Each mySlide In .Slides
   
8.             For Each myShape In mySlide.Shapes
   
9.                 If myShape.HasTextFrame Then
   
10.                     Set myRng = myShape.TextFrame.TextRange
    
11.                     myRng.Font.Size = 48
    
12.                     myRng.Font.NameAscii = "Arial"
    
13.                 End If
    
14.             Next
    
15.         Next
    
16.     End With
    
17. End Sub

复制代码

zzpsx

问题已经解决，谢谢高手。

zzpsx

谢谢，顺便问一下，ppt中的文件、选项、保存、将字体嵌入到文件、确定，这些步骤如何写成代码？

shenjianrong163

zzpsx 发表于 2021-11-17 11:41
谢谢，顺便问一下，ppt中的文件、选项、保存、将字体嵌入到文件、确定，这些步骤如何写成代码？

1. Sub test() '嵌入字体
   
2.     ActivePresentation.SaveAs ActivePresentation.FullName, ppSaveAsDefault, msoTrue
   
3. End Sub

复制代码

zzpsx

谢谢高手，请问这两段神代码如何合并为一？

shenjianrong163

zzpsx 发表于 2021-11-21 20:42
谢谢高手，请问这两段神代码如何合并为一？

1. Sub test()
   
2.     Dim mySlide As Slide
   
3.     Dim myShape As Shape
   
4.     Dim myRng   As TextRange
   
5.     With ActivePresentation
   
6.         .SlideMaster.Background.Fill.ForeColor.RGB = RGB(169, 209, 142)
   
7.         For Each mySlide In .Slides
   
8.             For Each myShape In mySlide.Shapes
   
9.                 If myShape.HasTextFrame Then
   
10.                     Set myRng = myShape.TextFrame.TextRange
    
11.                     myRng.Font.Size = 48
    
12.                     myRng.Font.NameAscii = "Arial"
    
13.                 End If
    
14.             Next
    
15.         Next
    
16.         .SaveAs ActivePresentation.FullName, ppSaveAsDefault, msoTrue
    
17.     End With
    
18. End Sub

复制代码

zzpsx

问题已经解决，谢谢高手。