Excel VBA質問箱 IV

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

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


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

63131 / 76732

←次へ　｜　前へ→


	【18200】Re:画像表示の件

sion - 04/9/17(金) 21:40 -


	引用なし

	パスワード

Imageコントロールをクリックして他の画像を表示する場合でしたら、私も丁度考えてました。
Sheetのセルにパス名を入れ、フォームのTextBoxに入力させます。
　Private Sub UserForm_Initialize()
例　TextBox1.Value = Cells(行, 8).Value　
　　Image1.Picture = LordPicture(TextBox1.Value)で表示させ、Image1～Image4
をFrameを付けImage4から3,2,1とimage1が上に来るように貼り付けます。各ImageのClickイベントに下の様に書き入れます。そうすると4枚の画像が繰り返し表示されます。

それから画像の大きさをImageコントロールのプロパティで
PictureSizeMode = fmPictureSizeModeStretch に設定すれば統一されました。
尚下の各Imageのパス名は直接でも良いし又上に書いた様に
　　TextBox1.Value = Cells(行, 8).Value　
　　Image1.Picture = LordPicture(TextBox1.Value)　でもいいです。

Private Sub Image1_Click()
　 Image1.SpecialEffect = fmSpecialEffectSunken
　　Image1.Visible = False
　　Image2.picture = LoadPicture("C:\My Documents\16062301.jpg")
　　Image2.AutoSize = False
　 Image1.SpecialEffect = fmSpecialEffectRaised
　
　　　　
End Sub

Private Sub Image2_Click()
　 Image2.SpecialEffect = fmSpecialEffectSunken
　　Image2.Visible = False
　　Image3.picture = LoadPicture("C:\My Documents\ryouri1.jpg")
　　Image3.AutoSize = False
　 Image2.SpecialEffect = fmSpecialEffectRaised
End Sub

Private Sub Image3_Click()
　 Image3.SpecialEffect = fmSpecialEffectSunken
　　
　　Image3.Visible = False
　　Image4.picture = LoadPicture("C:\My Documents\16842602.jpg")
　　Image4.AutoSize = False
　 Image3.SpecialEffect = fmSpecialEffectRaised
End Sub

Private Sub Image4_Click()
　 Image4.SpecialEffect = fmSpecialEffectSunken
　　
　　Image1.Visible = True
　　Image2.Visible = True
　　Image3.Visible = True
　　
　 Image4.SpecialEffect = fmSpecialEffectRaised
End Sub

1 hits

▼

【17528】画像表示の件 しろろ 04/9/1(水) 19:01