如何用vba获取ppt文件中用的所有字体？

要用vba获取ppt文件中用的所有字体，可以使用Presentation.Fonts 属性。

Presentation.Fonts 属性可以获取当前PPT文件中所有使用的字体集合，然后通过遍历集合即可获取所有已经使用的字体。

代码如下：

Sub QQ1722187970()
    Dim oP As Presentation
    Set oP = PowerPoint.ActivePresentation
    Dim oF As Font
    For Each oF In oP.Fonts
       With oF
        Debug.Print .Name
        Debug.Print .NameFarEast
       End With
    Next
End Sub