|
▼Kein さん:
>A列のセルなら、どこでも 1 を入れて画像を表示する。ということなら
>
▼Kein さん:
>A列のセルなら、どこでも 1 を入れて画像を表示する。ということなら
簡易カタログ作りを考えています。
画像を10枚ほど用意して、それぞれファイル名を1.jpg〜10.jpg
にふります。A1のセルに1を入れると、1.jpgの画像が
A2に3を入れると違う場所に3.jpgの画像がA3に6を入れると
6.jpgの画像が、・・・・これをたとえばA8まで続けると
8枚の画像が張り付いた簡易カタログができます。
そうしたいんですが。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column > 1 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If Not Is Numeric Then Exit Sub
On Error Resume Next
Me.Image1.Picture = _
LoadPicture("D:\" & Int(.Value) & ".jpg")
Me.Image1.AutoSize = True
End With
End Sub
これをやりましたが、コンパイルエラー
If Not Is Numeric Then Exit Sub が斑点しています。
お忙しいところすみません。どうぞよろしくお願い致します。
|
|