|
UserFormにImage3つを貼り付け、sheet1のA1〜A10セルには画像のPathが入っています
Public SS1 As String
Public SS2 As String
Private Sub UserForm_Activate()
SS1 = Range("A1").Value
SS2 = Range("A2").Value
Image2.Picture = LoadPicture(SS1)
Image3.Picture = LoadPicture(SS2)
End Sub
Private Sub Image2_Click()
Image1.Picture = LoadPicture(SS1)
End Sub
Private Sub Image3_Click()
Image1.Picture = LoadPicture(SS2)
End Sub
これでImage2とImage3の小さい画像がImage1に映し出されるようにしています
次に
Private Sub CommandButton1_Click()
SS1 = Range("A3").Value
SS2 = Range("A4").Value
Image2.Picture = LoadPicture(SS1)
Image3.Picture = LoadPicture(SS2)
End Sub
このボタンを追加して、次の画像をImage2 Image3に映し出そうとしたのですが
1度もImage2 Image3をクリックしていなければ、新しい画像が出るのですが
1度クリックしたら、A3やA4の画像には変わらず、A1やA2のままです
また、コマンドボタンをつける前も、Image1をクリックした時点で
Image1の画像が変わらなくてEnabled = False で逃げたのですけれど
Imageは、一度クリックされるとPictureが変更されない性質をもっているのでしょうか?
|
|