Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41993 / 76732

←次へ　｜　前へ→


	【39813】ImageをクリックするとPictureが決定？

lime - 06/7/1(土) 21:27 -


	引用なし

	パスワード

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に映し出そうとしたのですが
１度もImage2 Image3をクリックしていなければ、新しい画像が出るのですが
１度クリックしたら、A3やA4の画像には変わらず、A1やA2のままです

また、コマンドボタンをつける前も、Image1をクリックした時点で
Image1の画像が変わらなくてEnabled = False で逃げたのですけれど

Imageは、一度クリックされるとPictureが変更されない性質をもっているのでしょうか？

1 hits

▼

【39813】ImageをクリックするとPictureが決定？ lime 06/7/1(土) 21:27

≪