以下是一个使用VBA编写的遍历子文件夹并将所有ppt文件导出为pdf到另一个文件夹的示例代码：

Sub ExportPptToPdf()
    Dim fso As Object
    Dim folder As Object
    Dim subfolder As Object
    Dim file As Object
    Dim pptApp As Object
    Dim pptFile As Object
    Dim pdfPath As String

    ' 设置ppt应用程序
    Set pptApp = CreateObject("PowerPoint.Application")

    ' 设置文件夹路径
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder("C:\YourFolderPath") ' 替换为实际的文件夹路径

    ' 设置PDF输出路径
    pdfPath = "C:\YourOutputFolderPath\" ' 替换为实际的输出文件夹路径

    ' 遍历文件夹及子文件夹
    For Each subfolder In folder.Subfolders
        For Each file In subfolder.Files
            ' 检查文件是否为ppt文件
            If LCase(fso.GetExtensionName(file.Path)) = "ppt" Then
                ' 打开ppt文件
                Set pptFile = pptApp.Presentations.Open(file.Path)

                ' 导出为pdf
                pptFile.ExportAsFixedFormat pdfPath & fso.GetBaseName(file.Name) & ".pdf", 2 ' 第二个参数2表示导出为PDF格式

                ' 关闭ppt文件
                pptFile.Close

                ' 释放ppt文件对象
                Set pptFile = Nothing
            End If
        Next file
    Next subfolder

    ' 关闭ppt应用程序
    pptApp.Quit

    ' 释放ppt应用程序对象
    Set pptApp = Nothing

    ' 提示导出完成
    MsgBox "导出完成！"
End Sub

请将代码中的C:\YourFolderPath替换为实际的文件夹路径，将C:\YourOutputFolderPath\替换为实际的输出文件夹路径。