excelのマクロで画像ファイルを操作する方法
winのexcel2003を使っています。
画像を限定されたシート内でランダムに表示する方法を教えてください。
☆（文字）を１～１０個ランダムに、限定されたシート内で表示することはできるのですが、☆の代わりに画像（gifまたはjpeg）を１～１０個ランダムに表示できる方法がわかりません。
表示するのはシート１で、表示したい画像は、同じフォルダ内にある画像ファイル（画像１、画像２の２ファイル、大きさは50×50ピクセル程度）または、シート２に貼り付けてある画像ファイルです。
具体的には画像ファイルを指定する方法がわかりません。指定の方法がわかれば何とかなるような気がするのですが…
以下が自分で考えたマクロです。”星の表示”マクロをシート上のボタンに登録して、ボタンをクリックするたびにランダムに星が表示され、メッセージボックスにその数が表示されるはずです。
６個目の星から色が変わるようになっていますが、画像ファイルの場合は１～５個までは画像１を、６個目から画像２を表示できるようにしたいです。たとえば画像１は赤い車、画像２は青い車で、５までは赤い車を、６以上は青い車を表示したいのです。そしてすべての車の数もメッセージボックスに表示するマクロです。
条件に合うような表示ができれば、下のマクロにこだわり必要はありません。質問の仕方が不十分だとは思いますが、よろしくお願いします。
Sub 星の表示()
Dim i As Integer
a = 2
c = Int(10 * Rnd() + 1)
For i = 1 To c
a = 2 + a
Randomize
b = Int(10 * Rnd() + 1)
Cells(b, a).Value = "★"
If i < 6 Then
Cells(b, a).Font.ColorIndex = 3
Else
Cells(b, a).Font.ColorIndex = 4
End If
Next i
MsgBox c
Range("A1:X25").Select
Selection.ClearContents
Range("A1").Select
End Sub
よろしくお願いします。
お礼
ありがとうございました。 変更できないなんて・・・ちょっとガッカリしました。