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中运行相同的代码时，List是空的？如何初始化Powerpoint VBA中的字体大小组合框？我检查了字体大小属性'Visible'和'Enabled'，它们都设置为True。

非常感谢

乔

Answer 1

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

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

这也可以解释为什么它在PPT 2003上有效，因为你没有功能区，可能已经选择了FontSize和FontList。

不幸的是，即使在选择一个集团文本时，我也没有设法使用ListCount＆gt;我必须进一步研究它。

最高

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

1 个答案: