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

コマンドボタンを押下することで、ご質問にあるような処理をするVBAマクロをご紹介します。

テキストボックスの値は小数でも対応できるようにしてありますが、範囲外の数値が入力された場合は何も表示しません。

1. まず、"text1" という名前のテキストボックスと、"cmd1" という名前のコマンドボタンを用意してください。
2. 同じシートに "WebBrowser1" という名前のMicrosoft Web Browserコントロールを用意してください。設置手順は「Microsoft Web Browser コントロールをフォームに貼る」を参考にしてください。このコントロールを使わないと GIF アニメを再生できません。
3. VBAコードは以下の通りです。ファイル名A～Dは、ダウンロードしたアニメーションGIFファイルのフルパス名に置き換えてください。

Private Sub btn1_Click()
    v = Val(text1.Value)
    If (v >= 1 And v < 2) Then
        WebBrowser1.Navigate "ファイル名A"
    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

VBAで画像の表示を行うには、

Shapes("Picture 1").Visible = True

とすればいいでしょう。

ちなみに 画像の名前は "Picture 1"となっていますが、これは 変更してください。

表示しないようにするには

Shapes("Picture 1").Visible = False

としたらいいですね。