แทรกรูปภาพใน Excel ให้พอดีเซลแบบอัตโนมัติ ส่งให้เพื่อนภาพไม่หาย || ครูกุ้งสอนไอที

[@krukungit]

โค้ดแทรกภาพ
------------------------------------------------------------------------------
Dim LinuxTH As Worksheet
Dim imagePath As String
Set LinuxTH = ActiveSheet
LinuxTHimagePath = Application.GetOpenFilename _
("Pictures (*.png; *.ico; *.jpg; *.bmp; *.gif), *.png; *.ico; *.jpg; *.bmp; *.gif", _
, "Select picture as you want")
If LinuxTHimagePath = "False" Then Exit Sub
'Crate By Krusot LinuxTH Fix Height & Width Cell
LinuxTH.Shapes.AddPicture _
Filename:=LinuxTHimagePath, _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=ActiveCell.Left, _
Top:=ActiveCell.Top, _
Width:=ActiveCell.Width, _
Height:=ActiveCell.Height
------------------------------------------------------------------------------

[@pkphakhin4908]

ทำแล้วแต่รูปกะหายเหนือนเดีมครับ

[@NoudMaitichd-sx8uc]

สูดแบบนี้เอาที่ใหนคับ

[@BounSannanaiy]

❤

[@bouyjaruwan139]

สอนเข้าใจมากเลยค่า บอกภาษาไทยด้วย ขอบคุณมากนะคะ

[@krukungit]

😍😍😍

[@whyworrywhenucanpray]

ขอบคุณมากเลยค่ะ เป็นประโยชน์มากๆ
มีคำถามเพิ่มค่ะ
จะสามารถทำรูปให้พอดี และ ถ้าใช้ filter ด้วย โดยภาพไม่เลื่อน หายไป สามารถทำได้มั๊ยคะ

[@tinas.3069]

ขอบคุณค่ะ ทำตามได้ง่ายมากค่ะ

[@keakmitnb]

นำไปใช้งานได้จริง...ขอบคุณครับ

[@guthgt9951]

อธิบายยี่ยมเลยจร้า...สว.เรียนตามง่ายดี..จร้า

[@Eyeeyeyeeyeeyes]

ขอบคุณค่ะ❤

[@วายุ1980]

สอนได้เข้าใจมากคับ บางคนสอนไปเร็วมากแทบไม่เข้าใจ

[@krunomai5069]

ขอบคุณมากๆครับประหยัดเวลาทำชีวิตให้ง่ายขึ้นมากเลยครับ

[@ธนภรศิริสงคราม]

สอนดีเข้าใจง่ายมากค่ะ🙏🙏🙏

[@panisarakan.179]

ความรู้ดี ๆ มีประโยชน์มาก ๆ เลยค่ะ รบกวนสอบถามเพิ่มเติมนะคะ
ถ้าต้องการอัปโหลดรูปให้พอดีกับคอลัมที่ผสานไว้ ทำยังไงคะ

[@krukungit]

ไม่ทราบค่ะ ถ้ารู้วิธีจะทำคลิปเพิ่มเติมให้ค่ะ

[@noomnoom2787]

ขอบคุณมากค่ะ ดีมากเลยค่ะ

[@krukungit]

ยินดีค่ะ

[@hsuadjookoo7953]

❤❤❤

[@SanxayThepkavee]

ขอบคุณครับ

[@ครูพี่ดี๋สอนคอม]

จะทำแก้ไขอย่างไรดีค่ะ Run-time error 1004 method GetOpenFilename of object Application failed

[@tuiacoustic98]

ขอบไจหลายๆ

[@แจ็คสิ้นหวัง-ช1ท]

มีวิธี ctrl+c และ v เลยไดไหมคะแบบไม่ต้อง browse file จากเครื่อง

[@krukungit]

ยังไม่ทราบวิธีนี้เลยค่ะ

[@libragirl3405]

แล้วถ้ามี file ที่มีรูปหลายๆ รูปอยู่แล้วล่ะคะ ถ้าเราจะต้องมาแก้ไขให้รูปอยู่ใน cell พอดีต้องทำยังไง

[@Herfton_wang]

สูตรที่ให้มาใช้ได้แต่วินโดว์ใช่มั้ยครับ หากเป็น ios ต้องใช้สูตรไหนครับ

[@krukungit]

ยังไม่มีเลยค่ะ

[@jaroensakburanpakdeesakun1765]

โหลดภาพไม่ได้ครับ ...Error

[@chinverischai1406]

ทำใน mac บุ๊คไม่ได้เป็นเพราะอะไรครับ

[@praphet97]

สูตรที่ว่าจะแปะโค้ดใต้คลิปอยู่ตรงไหนครับ ผมมาติดอยู่ที่สูตรครับ

[@krukungit]

ตรงชื่อแทรกรูปภาพ จะมีสามเหลี่ยมเล็กๆอยู่ ลองกดดูนะคะ

[@krukungit]

โค้ดแทรกภาพ
------------------------------------------------------------------------------
Dim LinuxTH As Worksheet
Dim imagePath As String
Set LinuxTH = ActiveSheet
LinuxTHimagePath = Application.GetOpenFilename _
("Pictures (*.png; *.ico; *.jpg; *.bmp; *.gif), *.png; *.ico; *.jpg; *.bmp; *.gif", _
, "Select picture as you want")
If LinuxTHimagePath = "False" Then Exit Sub
'Crate By Krusot LinuxTH Fix Height & Width Cell
LinuxTH.Shapes.AddPicture _
Filename:=LinuxTHimagePath, _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=ActiveCell.Left, _
Top:=ActiveCell.Top, _
Width:=ActiveCell.Width, _
Height:=ActiveCell.Height
------------------------------------------------------------------------------

[@juraporn3522]

ส่งให้เพื่อนเเล้วเพื่อน save "ไม่ได้ค่ะ ครู

[@chaiwatpromsops74]

ขออนุญาติสอบถาม สามารถแทรกรูปในตาราง ที่เป็นเซลล์ผสานแล้วให้รูปพอดีได้มั้ยครับ

[@krukungit]

ยังไม่เคยทำเลยค่ะ ลองทำดูค่ะ แล้วมาบอกด้วยครูกุ้งด้วยนะคะ ขอบคุณค่ะ

[@chaiwatpromsops74]

@@krukungit ผสานแล้วใส่รูปมันจะเท่า cell เล็กครับ ไม่ขยายตาม cell ที่เราผสาน
จะเข้าไปแก้คำสั่งก็แก้ไม่เป็นด้วยครับ
ตรง ActiveCell ผมลองเปลี่ยน MergeCell ก็ไม่ถูกครับ (มั่วแก้คำสั่งครับ)

[@AbcOk-l1h]

คูเราจะเอาสูดได้ไงขอได้ไหม

[@krukungit]

code ใส่ไว้ในปักหมุดกับใต้คลิปนะคะ

[@prontiplao5203]

หาคำว่านักพัฒนาไม่เจอคะ

[@somjaikhuncharoen397]

ไม่จำเป็นต้องใช้ชื่อไฟล์เป็น ใส่รูปภาพพอดี ก็ได้ใช่มั้ยคะ

[@krukungit]

ใช่ค่ะ

[@ศุภจิตศรีธิ]

เซฟ macro แล้ว ภาพยังหายเหมือนเดิม คุณครูพอจะมีวิธีแก้ไหมคะ รบกวนด้วยค่ะ

[@krukungit]

ต้องก็อบรูปส่งไปให้ด้วยค่ะ

[@กมลทิพย์กล่อมดวงใจ]

ก็อปยังไงคะ

[@จักรินทร์ธาระถ้อย-ฐ6ศ]

เหมือนกันเลยครับ

[@MTmt-kd8wv]

@@krukungit ส่งรูปไปด้วยเหรอ ยุ่งยากจัง

[@thanwaratlachunlee5452]

Copy code ยังไงคะครูกุ้ง

[@krukungit]

code ใส่ไว้ในปักหมุดกับใต้คลิปนะคะ

[@chhinmeakra9730]

ส่งไปให้ นาย เปิดไม่ออกภาพครับ

[@krukungit]

ลองส่งไฟล์รูปไปด้วยค่ะ

[@chaiishu4908]

ส่งให้เพื่อนแล้วรูปหายครับ ต้องทำยังไงครับ

[@krukungit]

เซฟแบบมาโครก็ไม่ขึ้นหรอค่ะ

[@chaiishu4908]

@@krukungit ใช่ครับ เซฟเป็น.xlsm ครับ

[@ปาริชาตบรรจงแจ่ม-พ1ฐ]

สูตรอยู่ตรงไปนค่ะ

[@krukungit]

ใต้คลิปค่ะ

[@chanathipprasertphanit]

เอาสูตรต้องทำไง

[@krukungit]

code ใส่ไว้ในปักหมุดกับใต้คลิปนะคะ

[@MTmt-kd8wv]

ส่งต่อหายอยู่ดี

[@sawaitaikratok6640]

หายจริง

[@beerhokid]

หายครับ

[@wilawanmeetawee2306]

โหลดสูตรไม่ได้คะ

[@krukungit]

code ใส่ไว้ในปักหมุดกับใต้คลิปนะคะ

[@แจ็คสิ้นหวัง-ช1ท]

Copy code ไม่ได้ค่ะ ทำไงคะ

[@dongpannawat3407]

ขอโค้ดหน่อยครับ

[@krukungit]

โค้ดอยู่ใต้คลิปค่ะ

[@dongpannawat3407]

ใส่แล้วจะใช้ใด้ตลอดไหมครับ

[@จารย์หลุย]

บันทึกรูปจากเอ็กเซลโดยที่ภาพไม่เบลอทำยังไงครับ