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

#Excel #แทรกรูปอัตโนมัติ #พอดีเซล
โค้ดแทรกภาพ
------------------------------------------------------------------------------
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
------------------------------------------------------------------------------
ใครที่ชอบคอนเทนต์ไอที ติดตามได้ที่ Playlist นี้เลยค่ะ
• • สอนไอที
💙 และฝากติดตามช่อง Facebook ของครูกุ้งสอนไอทีเอาไว้ด้วย เพื่อติดตามอัปเดตไอทีที่น่าสนใจ / 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
------------------------------------------------------------------------------

[@pkphakhin4908]

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

[@NoudMaitichd-sx8uc]

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

[@guthgt9951]

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

[@user-cv4tg7fw5t]

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

[@user-yz8in6ok2z]

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

[@keakmitnb]

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

[@bouyjaruwan139]

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

[@krukungit]

😍😍😍

[@tuiacoustic98]

ขอบไจหลายๆ

[@whyworrywhenucanpray]

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

[@noomnoom2787]

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

[@krukungit]

ยินดีค่ะ

[@panisarakan.179]

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

[@krukungit]

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

[@user-jr8jk6st4m]

ขอบคุณครับ

[@libragirl3405]

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

[@user-pj4zc5ds6r]

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

[@user-dd5cl2pe5u]

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

[@chinverischai1406]

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

[@chaiwatpromsops74]

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

[@krukungit]

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

[@chaiwatpromsops74]

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

[@user-fx9ev3wi3b]

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

[@krukungit]

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

[@Herfton_wang]

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

[@krukungit]

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

[@somjaikhuncharoen397]

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

[@krukungit]

ใช่ค่ะ

[@user-tr9jr5ej2d]

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

[@krukungit]

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

[@user-dr3zq7sr8g]

ก็อปยังไงคะ

[@user-pu2td7gi4j]

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

[@MTmt-kd8wv]

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

[@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
------------------------------------------------------------------------------

[@jaroensakburanpakdeesakun1765]

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

[@prontiplao5203]

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

[@user-ec3mk9go3u]

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

[@krukungit]

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

[@thanwaratlachunlee5452]

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

[@krukungit]

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

[@user-qi6sw5wp5o]

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

[@krukungit]

ใต้คลิปค่ะ

[@chaiishu4908]

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

[@krukungit]

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

[@chaiishu4908]

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

[@chhinmeakra9730]

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

[@krukungit]

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

[@MTmt-kd8wv]

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

[@sawaitaikratok6640]

หายจริง

[@wilawanmeetawee2306]

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

[@krukungit]

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

[@chanathipprasertphanit]

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

[@krukungit]

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

[@user-fx9ev3wi3b]

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

[@dongpannawat3407]

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

[@krukungit]

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

[@dongpannawat3407]

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