再度質問させてください。『ExcelVBAで条件分岐を行い、得られた回答によって画像(ﾏｲｸﾛｿﾌﾄｵﾝﾗｲﾝのｸﾘｯﾌﾟｱｰﾄからﾀﾞｳﾝﾛｰﾄﾞできるｱﾆﾒｰｼｮﾝ)を表示させたいと思います。具体例→「テキストボックスに入力した数値が１～２未満ならばＡのｱﾆﾒｰｼｮﾝ、２～５未満ならばＢのｱﾆﾒｰｼｮﾝを表示、５～８未満ならばＣのｱﾆﾒｰｼｮﾝを表示、８～10ならばＤのｱﾆﾒｰｼｮﾝを表示、何も入力してなければ表示しない」　というようなﾏｸﾛです。VBAを使わないで、関数のみで文字を表示することはできますが、ＶＢＡでｱﾆﾒｰｼｮﾝ表示させたいのです。よろしくお願いします。バージョンはExcel2003で、OSはWindowsXPです。』

id:pahooさんの以前の回答でいいと思います。

＞「Microsoft Web Browserコントロール」をどのように使うのか、わかりません

→　ツールバーのアイコンの上で右クリック→「コントロールツールボックス」→「コントロールの選択（レンチとトンカチ）」→「Microsoft Web Browser」でWindowsロゴのエリアが出ます。

デフォルトでは１個目が「WebBrowser1」オブジェクトです。

pahooさんのをちょっとだけ変更して、デフォルトの名前で出てくるサンプルにしてみました。

ボタンもテキストボックスも、シート上に直接張った場合の例です（フォーム上ではありません）。

なお、このマクロはSheet1などに入れてください（標準モジュールではありません）。

Private Sub CommandButton1_Click()
    v = Val(TextBox1.Value)
    If (v >= 1 And v < 2) Then
           WebBrowser1.Navigate "c:\xx\j0186002.wmf"  'OK
'OK        WebBrowser1.Navigate "C:\Program Files\Microsoft Office\MEDIA\CAGCAT10\j0186002.wmf"
'NG        WebBrowser1.Navigate "http://office.microsoft.com" microsoftサイトが出る
'NG        WebBrowser1.Navigate "C:\Program Files\Microsoft Office\MEDIA\CAGCAT10\CAGCAT10.MMW"
'NG        WebBrowser1.Navigate "C:\Documents and Settings\hogehoge\Application Data\Microsoft\Clip Organizer\mstore10.mgc"
'NG        WebBrowser1.Navigate "C:\Documents and Settings\hogehoge\Local Settings\Temporary Internet Files\Content.IE5\XNFHJPBC\MCj03962040000[1].wmf"
    ElseIf (v >= 2 And v < 5) Then
        WebBrowser1.Navigate "ファイル名B"
    ElseIf (v >= 5 And v < 8) Then
        WebBrowser1.Navigate "ファイル名C"
    ElseIf (v >= 8 And v < 10) Then
        WebBrowser1.Navigate "ファイル名D"
    End If
End Sub

アニメーションは予めファイルに落としてあるということでよいのですよね？

＞「オブジェクトがない」や少し変更すると「コンパイルエラー」等、全く動かないで困っています

→　オブジェクトを作っていない場合は、該当オブジェクトに対する操作はすべてエラーになります。

プログラムは人間ではないので、１文字でも違えばコンパイルエラーになります。これは仕方ないですね。

うまく動かない場合は、以前のスレッドでCloseせずに、そのままQAをされてみるのが良かったと思います。

（もしくは、参考書かググってみるとか）

airplantさんからコールをいただきました。

さて、#1でairplantさんが回答している方法でも「Microsoft Web Browser Control」を選択することはできませんか？

そうなると、コントロール自体が壊れている可能性があります。InternetExplorerの再インストールを試みてください。