Excelのマクロが動きません。

質問

エクセルのマクロを使っていたのですが2003から2010にバージョンを変えたところ、
マクロが動かなくなってしまいました。プログラムは下記です。

Sub AvailableFonts()

Dim Ctrl As CommandBarComboBox
Dim i As Integer

Set Ctrl = Application.CommandBars("Formatting"). _
Controls("フォント(&F):")

For i = 1 To Ctrl.ListCount
ActiveSheet.Cells(i, 1).Value = Ctrl.List(i)
Next i

End Sub

「Set Ctrl = Application.CommandBars("Formatting"). _
Controls("フォント(&F):")」
の部分で「プロシージャの呼び出し、または引数が不正です。」とエラーが出てしまいます。
エクセル２０１０で動かすにはどう変えたらいいのでしょうか。

ご教授お願いします。

回答No.2

m-take0220 · ベストアンサー

Excel2007以降ではリボンが採用されている関係上、CommandBarsを使用するマクロが動かなくなることが多いようです。
フォントのリストを取得したい場合は、コントロールのIDを直接指定して取得するとうまくいくみたいです。

Excel VBA - フォントリストの取得
http://ameblo.jp/blueskyame/entry-10248887879.html

お礼

ありがとうございます！
ID入力に変えましたら解決しました！

回答No.1

sknbsknb2

64bit版をインストールしていませんか？
32bit版を使うと、そのままで動くようになるのではないかと思います。

お礼

返信ありがとうございます。
説明不足で申し訳ございません。
Windows7の32Bitの環境でした。
m-take0220さんのアドバイスのおかげで無事解決できました。