Excel VBA質問箱 IV

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

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


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

10905 / 76807

←次へ　｜　前へ→


	【71447】Textboxの値に応じた写真の画像をイメージコントロールに表示をさせるのは

aribaba

- 12/3/4(日) 22:57 -


	引用なし

	パスワード

Dim No As Variant
Dim rcd As Range
Dim pName As String
No = TextBox1.Value

Set rcd = Worksheets("ファイルリスト").Range("A:A").Find(What:=No, LookAt:=xlWhole)

　'’’’型式を表示させる＝＝＝＝＝＝＝＝
TextBox2.Value = rcd.Offset(0, 1).Value

TextBox3.Value = rcd.Offset(0, 6).Value
'’’’注意事項を表示させる＝＝＝＝＝
TextBox4.Value = rcd.Offset(0, 7).Value
' ' '作業者用ノウハウ表示させる＝＝＝＝＝
TextBox5.Value = rcd.Offset(0, 9).Value
　
pName = "F:\作業指示システム\表示用写真\ " & Format(No, "TextBox1.Value") & ".JPG"

With UserForm1
If Dir(pName) <> "　" Then
　 Image1.Picture = LoadPicture(pName)
Else
　 Image1.Picture = LoadPicture()

すみませんが、上記のコードでImage1の写真を表示されないですが、どなた先生が教えていたたけないでしょうか？

2 hits

▼

【71447】Textboxの値に応じた写真の画像をイメージコントロールに表示をさせるのは aribaba 12/3/4(日) 22:57

≪