Excel VBA質問箱 IV

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

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


7326 / 13646 ツリー ←次へ | 前へ→

【39813】ImageをクリックするとPictureが決定? lime 06/7/1(土) 21:27 質問[未読]
【39814】Re:ImageをクリックするとPictureが決定? neptune 06/7/1(土) 22:28 回答[未読]
【39815】Re:ImageをクリックするとPictureが決定? lime 06/7/1(土) 22:41 お礼[未読]

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

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

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

【39814】Re:ImageをクリックするとPictureが決定?
回答  neptune  - 06/7/1(土) 22:28 -

引用なし
パスワード
   ▼lime さん:
>>Private Sub CommandButton1_Click()
> SS1 = Range("A3").Value
> SS2 = Range("A4").Value
> Image2.Picture = LoadPicture(SS1)
> Image3.Picture = LoadPicture(SS2)
Me.Repaint 'これを追加したらどうなります?
>End Sub

【39815】Re:ImageをクリックするとPictureが決定?
お礼  lime  - 06/7/1(土) 22:41 -

引用なし
パスワード
   neptuneさん、すごい!
Me.Repaintを入れるだけで書き換わってしまいました!!
Repaintの後ろでF1押してみました
内容を書き換えろ!って命令なんですね

またひとつ賢くなりました
ありがとうございました

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