ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย ระบุ Version ของ Excel
ฟอรัมถาม-ตอบปัญหาการใช้งาน Macro และ VBA
Forum rules
ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง) กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
jullathep
Member
Posts: 148 Joined: Fri Feb 02, 2018 1:56 pm
#1
Post
by jullathep Sat Mar 03, 2018 3:43 pm
รบกวนสอบถามหน่อยครับ พอดีผมไปเจอ 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 อย่างไรดีครับ ขอความกรุณาด้วยครับ
Attachments
เวิร์กบุ๊ก111111111111111111.xlsm (52.6 KiB) Downloaded 14 times
Last edited by
jullathep on Sat Mar 03, 2018 3:54 pm, edited 1 time in total.
snasui
Site Admin
Posts: 31253 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#2
Post
by snasui Sat Mar 03, 2018 3:54 pm
ปรับ
Me.Image1.Picture = LoadPicture(strPath & "11.jpg") เป็น
Me.Image1.Picture = LoadPicture(strPath & TextBox.Text) ครับ
ผมพบว่าวันนี้คุณ jullathep มีการโพสต์กระทู้เกียวกับการโหลดรูปภาพ 3 กระทู้ โปรดพิจาณาว่าเป็นกระทู้เดียวกันกับที่เคยโพสต์หรือไม่ หากเป็นเรื่องเดียวกันให้โพสต์ในกระทู้นั้น ยกเว้นเป็นคนละเรื่องจึงควรแยกมาเป็นอีกกระทู้ครับ
jullathep
Member
Posts: 148 Joined: Fri Feb 02, 2018 1:56 pm
#3
Post
by jullathep 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) ครับ
โปรดพิจาณาว่าเป็นกระทู้เดียวกันกับที่เคยโพสต์หรือไม่ หากเป็นเรื่องเดียวกันให้โพสต์ในกระทู้นั้น ยกเว้นเป็นคนละเรื่องจึงควรแยกมาเป็นอีกกระทู้ครับ
ขอบคุณครับอาจารย์ ขออภัยครับ พอดีผมเครียดๆครับ เลยเบลอๆ ทำอะไรผิดพลาดไป ขออภัยครับอาจารย์
jullathep
Member
Posts: 148 Joined: Fri Feb 02, 2018 1:56 pm
#4
Post
by jullathep Sat Mar 03, 2018 4:33 pm
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
อยากจะให้ขนาดรูปที่เรา เอามาโชว์มัน ขนาดเท่ากันหมด ขอบคุณครับ
snasui
Site Admin
Posts: 31253 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#5
Post
by snasui Sat Mar 03, 2018 4:38 pm
แนบไฟล์พร้อม Code ล่าสุดมาด้วยจะได้ตอบต่อไปจากนั้นครับ
jullathep
Member
Posts: 148 Joined: Fri Feb 02, 2018 1:56 pm
#6
Post
by jullathep Sat Mar 03, 2018 4:44 pm
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
Attachments
เวิร์กบุ๊ก111111111111111111.xlsm (57.38 KiB) Downloaded 23 times
snasui
Site Admin
Posts: 31253 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#7
Post
by snasui Sat Mar 03, 2018 5:00 pm
ผมเข้าใจว่ากำหนดให้ภาพพอดีกับ Image Object หากผมเข้าใจถูกต้องให้กำหนดตามภาพครับ
Attachments
Stretch Stretch.jpg (93.06 KiB) Viewed 175 times
jullathep
Member
Posts: 148 Joined: Fri Feb 02, 2018 1:56 pm
#8
Post
by jullathep Sat Mar 03, 2018 5:02 pm
snasui wrote: Sat Mar 03, 2018 5:00 pm ผมเข้าใจว่ากำหนดให้ภาพพอดีกับ Image Object หากผมเข้าใจถูกต้องให้กำหนดตามภาพครับ
ใช่ครับอาจารย์ถูกครับ ขอบคุณมากครับผม
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
โปรดทราบ 
