在 Powerpoint VBA 中获取字体大小列表

Question

此代码打印出 Excel 2007 中字体大小列表组合框中的每个条目：

Sub FontSizeList()

Dim combo As CommandBarComboBox

Dim i As Integer
Dim j As Integer

For i = 1 To Application.CommandBars("Formatting").Controls.Count
    If Application.CommandBars("Formatting").Controls(i).Caption = "&Font Size:" Then
        Set ctl = Application.CommandBars("Formatting").Controls(i)
        For j = 1 To ctl.ListCount
            Debug.Print ctl.List(j)
        Next j
    End If
Next i

End Sub

但是，当我在 Powerpoint 2007 中运行相同的代码时，列表为空？如何在 Powerpoint VBA 中初始化字体大小组合框？我检查了字体大小属性 'Visible' 和 'Enabled'，它们都设置为 True。

非常感谢

乔

Answer 1

我已经在 Excel 和 PowerPoint 2007 上尝试过您的代码。

在 PowerPoint 中，如果未选择文本块（或绘图），则 FontList 和 FontSize 是不可选择的（深灰色）。这可以解释为什么调试时 ListCount 仍然为 0。

这也可以解释为什么它确实适用于 PPT 2003，因为您没有功能区，并且可能已经选择了 FontSize 和 FontList。

不幸的是，即使在选择 bloc 文本时，我也没有设法让 ListCount > 0。我必须进一步查看它。

最大