Vba 在PowerPoint中获取普通字体样式

我正在检查演示文稿中存在的字体。这可以通过

ActivePresentation.Fonts

完成。我还想检查字体是否为普通、粗体和/或斜体。粗体和斜体很容易，但普通就不容易了。例如，假设我有两个文本框，其中一个用Arial斜体显示“Hello World”，另一个用Arial粗体显示“Hello World”。下面的代码告诉我这两个都有：

Sub CheckFonts()
    Dim p As Presentation: Set p = ActivePresentation
    Dim f As Font: Set f = p.Fonts(1)
    Dim italic As Boolean: italic = f.italic
    Dim bold As Boolean: bold = f.bold
    Debug.Print "Bold in use: " & bold; vbTab & "Italic in use: " & italic
End Sub

现在让我们假设我有一个没有斜体的文本框，但它只是普通的Arial字体。如果不循环遍历所有形状的每个字体对象，我是否可以从

演示文稿中判断它是正常字体（即没有应用斜体/粗体格式）。字体

提前谢谢。
对不起，这不是回答，但太有趣了，不能不传下去。在我为你的字体问题做的小小研究中，我遇到了一个问题

显然有人在微软为Genigraphics工作，或者有人从其他产品复制文档


这是一段永久保存的摘录：

Geni向导使用字体集合来确定是否存在
在指定的
在以下情况下不支持演示文稿：
在幻灯片上显示图形图像。如果你
只想设置字符格式
对于特定的项目符号或文本范围，
使用Font属性返回
项目符号或文本的字体对象
射程

“图形向导”允许用户
传达他们的陈述
直接到Genigraphics for
转换成电影幻灯片，头顶
透明胶片，或其他专门的
媒体格式。更多信息
关于图形服务
提供，请访问图形网站
地点。此服务可能不可用
可在美国境外购买

MSDN上的文字到底在干什么？：-）
 Genigraphics在开发PowerPoint中起到了重要作用。