フォントの一覧表を作成するマクロを、Workbook Open時に実行すると、エラーになる。____

Question

マクロプログラム

Private Sub Workbook_open()

    Start

End Sub

Sub Start()

    Dim i As Long

    Range("B2:B1000").ClearContents

    With Application.CommandBars("Formatting").Controls(1)

        For i = 1 To .ListCount

            Cells(1 + i, 2) = .List(i)

        Next i

    End With

End Sub

エラー表示

　「実行時エラー　-2147467259(80004005)　　List.Countメソッドは失敗しました」

Answer 1

私もVista+2007、2010でも発生しませんね。

好みの問題ですが、Waitさせる対症療法でしたら、安直に↓みたいなことをやると思います。

Sub Start()

    Dim i As Long

    Dim wFlg As Boolean, X As Variant

    Range("B2:B1000").ClearContents

    On Error Resume Next

     Do

      X = Application.CommandBars("Formatting").Controls(1).ListCount

      wFlg = Err.Number = 0

      Err.Clear

     Loop Until wFlg

    On Error GoTo 0

    With Application.CommandBars("Formatting").Controls(1)

        For i = 1 To .ListCount

            Cells(1 + i, 2) = .List(i)

        Next i

    End With

End Sub

Answer 2

こんにちは。

以前似たようなことがあって、Service Packを当てたら問題が

起きなくなったことがあります。

もし最新版のService Packをインストールしていないようでしたら、

インストールしてみるのも有りかもしれません。

また、無理やり処理するのであれば下記のような感じでしょうか。

他の回答者の方が回答されているように、待ち処理を加えています。

'ThisWorkbook

Private Sub Workbook_Open()

    Application.OnTime [Now() + "0:00:00.1"], "ThisWorkbook.Start"

End Sub

Public Sub Start()

    Dim cbo As Office.CommandBarComboBox

    Dim TimeLimit As Date

    Dim i As Long

    TimeLimit = DateAdd("s", 2, Now())

    On Error Resume Next

    Do

        Set cbo = Application.CommandBars("Formatting").Controls(1)

        If Now() > TimeLimit Then Exit Do

        DoEvents

    Loop While cbo Is Nothing

    On Error GoTo 0

    If cbo Is Nothing Then

        MsgBox "処理が失敗しました。", vbCritical + vbSystemModal

        Exit Sub

    End If

    Range("B2:B1000").ClearContents

    With cbo

        For i = 1 To .ListCount

            Cells(1 + i, 2) = .List(i)

        Next i

    End With

    Set cbo = Nothing

End Sub

Answer 3

Formattingは書式コマンドバーですから最初から存在するはずです。

私もVista+2003で問題なく動きましたが？

因みに

Private Sub Workbook_open()

    msgbox　"XXX"

    Start

End Sub

のようにして、起動時に一度止めたらどうなりますか？

Answer 4

anning様　　回答、ありがとうございました。

「List.Countメソッドは失敗しました」は、「ListCountメソッドは失敗しました」の誤りでした。

ＥＸＣＥＬファイルをオープンしたときに、自動的にマクロが起動されるプログラムの中で、

システムのフォントを表示して、フォントを選択するようにしています。

前のＰＣ（ＸＰ）のときは、問題なく動作していましたが、新しいＰＣ（Ｖｉｓｔａ）では、

エラーになってしまうため、質問した次第です。

起動直後に「Application.CommandBars("Formatting").Controls(1)」が作成されている

保証がないので、エラーになっても仕方ないとのことですが、

起動直後に「Application.CommandBars("Formatting").Controls(1)」を作成するには、

どうしたらよいのでしょうか？

エラーにならないようにする方法がありましたら、ご教示ください。

よろしくお願いします。

Answer 5

「List.Countメソッドは失敗しました」じゃなくて

「ListCountメソッドは失敗しました」ですよね？

Office 2003 + Vista で試しましたがエラーになりませんでした。

でも起動直後に「Application.CommandBars("Formatting").Controls(1)」が

作成済みであるという保証が無いのなら

エラーになっても仕方ないと思います。