Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


56105 / 76732 ←次へ | 前へ→

【25389】Re:画像を出したい
質問  きし  - 05/5/30(月) 12:09 -

引用なし
パスワード
   ▼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 が斑点しています。
お忙しいところすみません。どうぞよろしくお願い致します。

0 hits

【25378】画像を出したい きし 05/5/30(月) 11:16 質問
【25382】Re:画像を出したい Kein 05/5/30(月) 11:33 回答
【25389】Re:画像を出したい きし 05/5/30(月) 12:09 質問
【25390】Re:画像を出したい Kein 05/5/30(月) 12:28 回答
【25391】Re:画像を出したい きし 05/5/30(月) 12:42 質問
【25392】Re:画像を出したい Kein 05/5/30(月) 13:10 発言
【25393】Re:画像を出したい Kein 05/5/30(月) 13:15 発言
【25396】Re:画像を出したい きし 05/5/30(月) 14:13 質問
【25405】Re:画像を出したい Kein 05/5/30(月) 17:14 回答
【25394】Re:画像を出したい きし 05/5/30(月) 13:18 質問
【25385】Re:画像を出したい Jaka 05/5/30(月) 11:40 質問
【25407】Re:画像を出したい きし 05/5/30(月) 17:37 お礼

56105 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free