| |
Dフォルダに1.jpgの画像があります。
ツール（右クリック）
コントロールツールボックス
イメージをクリックして
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address(0, 0) = "A1" Then
If .Value = "" Then
Me.Image1.Picture = Nothing
Else
Me.Image1.AutoSize = True
Me.Image1.Picture = LoadPicture("D:\" & .Value & ".jpg")
End If
End If
End With
End Sub
とすると通常A1のセルに１を入れると画像が出てくるはずなんですが
反応が無いので
sheet1を右クリック、コードの表示より
同じ文面を入力すると、なるほど1Aに1を入れると
画像が出てきます。
次にA2にも同じ作業が（A2に１を入れると1.jpgの画像が出てくる）
ようにしたいんですが、どのようにしたらいいのでしょうか？
はじめのやり方がうまくいくと、後は間単に行くような気がするのですが
よろしくお願い致します。
|
|
きし
- 05/5/30(月) 11:16 -
