Office アシスタントを再度呼び出すとエラー462が発生する (ID:102798)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こんにちわ
VB6.0からOfficeXPのアシスタントを連続して呼び出すとエラー462
リモートサーバーがないか、使用できる状態ではありません。  というエラーが発生します。
コードは

Dim myAnswer As Long
    
        With Assistant
                        'キャラクタを設定します。
                        .FileName = "DOLPHIN.ACS"
                        'アシスタントを表示します。
                        .Visible = True
                        'アニメーションの種類を設定します。（メールを送る）
                        .Animation = msoAnimationThinking
                        'アシスタントを表示する位置を指定します。
                        .Left = 0
                        .Top = 0
                        'アシスタントのアニメーションに対応した音を鳴らします。
                        .Sounds = True
                        'アシスタントが入力作業の邪魔をしないように設定します。
                        .MoveWhenInTheWay = True
        End With
        
        Set myBalloon = Assistant.NewBalloon
        
              'バルーンの内容を設定します。
        With myBalloon '←(2)
                        '見出し
                        .Heading = "操作方法説明"
                        'バルーンの中のテキスト
                        .Text = "は〜い"
                        'アイコン（ヒントのアイコン）
                        .Icon = msoIconTip
                        '確認を促す下部のボタン（ＯＫ）
                        .Button = msoButtonSetOK
                        .Show
        End With
        
        Set myBalloon = Nothing
        Assistant.Visible = False
 
1回目はエラー無く実行されるのですが、フォームを閉じずに再度実行すると

実行時エラー  462
リモートサーバーがないか、使用できる状態ではありません。
が発生します。
どのようにしたら実行できるか、ご教示宜しくお願い致します。

←解決時は質問者本人がここをチェックしてください。

戻る