Powerpoint VBAでフォントサイズリストを取得する

StackOverflow https://stackoverflow.com/questions/6304312

  •  25-10-2019
  •  | 
  •  

質問

このコードは、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 に設定されています。

どうもありがとう

ジョー

役に立ちましたか？

解決

Excel と PowerPoint 2007 の両方でコードを試しました。

PowerPoint では、テキスト ブロック (または描画) が選択されていない場合、FontList と FontSize は選択できません (濃い灰色)。デバッグ時に ListCount が 0 のままである理由はこれで説明できるかもしれません。

これは、リボンがなく、おそらく FontSize と FontList がすでに選択されているため、PPT 2003 で機能する理由も説明できます。

残念ながら、ブロック テキストを選択しているときでも、ListCount > 0 にすることができませんでした。さらに見てみる必要があります。

マックス

ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top