|
こんばんわ。
ワークシートでもイメージコントロールを使ったら簡単なんやないかな?
1.コントロールツールボックスツールバーからイメージを4個
Sheet2に貼り付ける。
2.プロパティウィンドウを開いて、各イメージコントロールの・・・
Name→Image00・Image11〜Image13
Picture→画像を指定
3.Sheet1のコードを変更する。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim m As Variant
m = Target.EntireRow.Cells(1).Value
Select Case m
Case 11, 12, 13
UserForm1.Image1.Picture = Worksheets("Sheet2").OLEObjects("Image" & m).Object.Picture
Case Else
UserForm1.Image1.Picture = Worksheets("Sheet2").Image00.Picture
End Select
End Sub
・・・なんてのでどうでっか?
試してみてな。
ほな。
|
|