Page 1 of 1
สอบถาม Code VBA เกี่ยวกับการเรียกรูปภาพมาแสดง ที่ Image1
Posted: Sat Mar 03, 2018 3:43 pm
by jullathep
รบกวนสอบถามหน่อยครับ พอดีผมไปเจอ Code เขาเขียนไว้ แต่มันเป็นการโหลด จาก Drive D ตามชื่อรูปภาพที่กำหนด ให้มาแสดงที่ Image1
Code: Select all
Private Sub CommandButton1_Click()
Dim strPath As String
strPath = ActiveWorkbook.Path
If Right(strPath, 1) <> "\" Then
strPath = strPath & "\"
End If
Me.Image1.Picture = LoadPicture(strPath & "11.jpg")
End Sub
ความต้องการของผมคือ อยากจะให้กรอกชื่อใน Textbox ซึ่งชื่อใน Textbox จะเหมือนกับชื่อของรูปภาพใน Drive D/Folder pic เมื่อกรอกข้อมูลไป กดตกลง จะแสดงรูป ที่ Image1 ผมจะเขียน Code อย่างไรดีครับ ขอความกรุณาด้วยครับ
Re: สอบถาม Code VBA เกี่ยวกับการเรียกรูปภาพมาแสดง ที่ Image1
Posted: Sat Mar 03, 2018 3:54 pm
by snasui
ปรับ
Me.Image1.Picture = LoadPicture(strPath & "11.jpg") เป็น
Me.Image1.Picture = LoadPicture(strPath & TextBox.Text) ครับ
ผมพบว่าวันนี้คุณ jullathep มีการโพสต์กระทู้เกียวกับการโหลดรูปภาพ 3 กระทู้ โปรดพิจาณาว่าเป็นกระทู้เดียวกันกับที่เคยโพสต์หรือไม่ หากเป็นเรื่องเดียวกันให้โพสต์ในกระทู้นั้น ยกเว้นเป็นคนละเรื่องจึงควรแยกมาเป็นอีกกระทู้ครับ
Re: สอบถาม Code VBA เกี่ยวกับการเรียกรูปภาพมาแสดง ที่ Image1
Posted: Sat Mar 03, 2018 3:56 pm
by jullathep
snasui wrote: Sat Mar 03, 2018 3:54 pm
ปรับ
Me.Image1.Picture = LoadPicture(strPath & "11.jpg") เป็น
Me.Image1.Picture = LoadPicture(strPath & TextBox.Text) ครับ
โปรดพิจาณาว่าเป็นกระทู้เดียวกันกับที่เคยโพสต์หรือไม่ หากเป็นเรื่องเดียวกันให้โพสต์ในกระทู้นั้น ยกเว้นเป็นคนละเรื่องจึงควรแยกมาเป็นอีกกระทู้ครับ
ขอบคุณครับอาจารย์ ขออภัยครับ พอดีผมเครียดๆครับ เลยเบลอๆ ทำอะไรผิดพลาดไป ขออภัยครับอาจารย์
Re: สอบถาม Code VBA เกี่ยวกับการเรียกรูปภาพมาแสดง ที่ Image1
Posted: Sat Mar 03, 2018 4:33 pm
by jullathep
jullathep wrote: Sat Mar 03, 2018 3:56 pm
snasui wrote: Sat Mar 03, 2018 3:54 pm
ปรับ
Me.Image1.Picture = LoadPicture(strPath & "11.jpg") เป็น
Me.Image1.Picture = LoadPicture(strPath & TextBox.Text) ครับ
โปรดพิจาณาว่าเป็นกระทู้เดียวกันกับที่เคยโพสต์หรือไม่ หากเป็นเรื่องเดียวกันให้โพสต์ในกระทู้นั้น ยกเว้นเป็นคนละเรื่องจึงควรแยกมาเป็นอีกกระทู้ครับ
ขอบคุณครับอาจารย์ ขออภัยครับ พอดีผมเครียดๆครับ เลยเบลอๆ ทำอะไรผิดพลาดไป ขออภัยครับอาจารย์
ได้ละครับอาจารย์ ผมเจอ Code ใน ฟอรั่ม มาพอดีเลยลองเอามาใช้ แต่ผมมีคำถามเพิ่มเติมครับ ถ้าผมอยากจะให้มันปรับขนากรูปเท่าๆกันทุกรูปจากขนาดของ Image 1 ผมต้องเขียน Code ต่อว่าอย่าไงรครับ
Code: Select all
Sub ShowPic()
myPic = "D:\pic\" & Sheet1.Textbox1 & ".jpg"
Sheet2.Image1.Picture = LoadPicture(myPic)
End Sub
อยากจะให้ขนาดรูปที่เรา เอามาโชว์มัน ขนาดเท่ากันหมด ขอบคุณครับ
Re: สอบถาม Code VBA เกี่ยวกับการเรียกรูปภาพมาแสดง ที่ Image1
Posted: Sat Mar 03, 2018 4:38 pm
by snasui
แนบไฟล์พร้อม Code ล่าสุดมาด้วยจะได้ตอบต่อไปจากนั้นครับ
Re: สอบถาม Code VBA เกี่ยวกับการเรียกรูปภาพมาแสดง ที่ Image1
Posted: Sat Mar 03, 2018 4:44 pm
by jullathep
snasui wrote: Sat Mar 03, 2018 4:38 pm
แนบไฟล์พร้อม Code ล่าสุดมาด้วยจะได้ตอบต่อไปจากนั้นครับ
โอ้ยขออภัยครับ ลืมแนบ
Code: Select all
Sub ShowPic()
myPic = "D:\pic\" & Sheet1.TextBox1 & ".jpg"
Sheet2.Image1.Picture = LoadPicture(myPic)
End Sub
Re: สอบถาม Code VBA เกี่ยวกับการเรียกรูปภาพมาแสดง ที่ Image1
Posted: Sat Mar 03, 2018 5:00 pm
by snasui
ผมเข้าใจว่ากำหนดให้ภาพพอดีกับ Image Object หากผมเข้าใจถูกต้องให้กำหนดตามภาพครับ
Re: สอบถาม Code VBA เกี่ยวกับการเรียกรูปภาพมาแสดง ที่ Image1
Posted: Sat Mar 03, 2018 5:02 pm
by jullathep
snasui wrote: Sat Mar 03, 2018 5:00 pm
ผมเข้าใจว่ากำหนดให้ภาพพอดีกับ Image Object หากผมเข้าใจถูกต้องให้กำหนดตามภาพครับ
ใช่ครับอาจารย์ถูกครับ ขอบคุณมากครับผม