แทรกรูปภาพใน Excel ให้พอดีเซลแบบอัตโนมัติ ส่งให้เพื่อนภาพไม่หาย || ครูกุ้งสอนไอที
Вставка
- Опубліковано 16 сер 2022
- #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
โค้ดแทรกภาพ
------------------------------------------------------------------------------
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
------------------------------------------------------------------------------
ทำแล้วแต่รูปกะหายเหนือนเดีมครับ
สูดแบบนี้เอาที่ใหนคับ
สอนเข้าใจมากเลยค่า บอกภาษาไทยด้วย ขอบคุณมากนะคะ
😍😍😍
นำไปใช้งานได้จริง...ขอบคุณครับ
ขอบคุณมากเลยค่ะ เป็นประโยชน์มากๆ
มีคำถามเพิ่มค่ะ
จะสามารถทำรูปให้พอดี และ ถ้าใช้ filter ด้วย โดยภาพไม่เลื่อน หายไป สามารถทำได้มั๊ยคะ
สอนได้เข้าใจมากคับ บางคนสอนไปเร็วมากแทบไม่เข้าใจ
อธิบายยี่ยมเลยจร้า...สว.เรียนตามง่ายดี..จร้า
ความรู้ดี ๆ มีประโยชน์มาก ๆ เลยค่ะ รบกวนสอบถามเพิ่มเติมนะคะ
ถ้าต้องการอัปโหลดรูปให้พอดีกับคอลัมที่ผสานไว้ ทำยังไงคะ
ไม่ทราบค่ะ ถ้ารู้วิธีจะทำคลิปเพิ่มเติมให้ค่ะ
สอนดีเข้าใจง่ายมากค่ะ🙏🙏🙏
ขอบคุณมากค่ะ ดีมากเลยค่ะ
ยินดีค่ะ
ขอบคุณครับ
ขอบไจหลายๆ
ขอบคุณมากๆครับประหยัดเวลาทำชีวิตให้ง่ายขึ้นมากเลยครับ
บันทึกรูปจากเอ็กเซลโดยที่ภาพไม่เบลอทำยังไงครับ
แล้วถ้ามี file ที่มีรูปหลายๆ รูปอยู่แล้วล่ะคะ ถ้าเราจะต้องมาแก้ไขให้รูปอยู่ใน cell พอดีต้องทำยังไง
ส่งให้เพื่อนเเล้วเพื่อน save "ไม่ได้ค่ะ ครู
จะทำแก้ไขอย่างไรดีค่ะ Run-time error 1004 method GetOpenFilename of object Application failed
มีวิธี ctrl+c และ v เลยไดไหมคะแบบไม่ต้อง browse file จากเครื่อง
ยังไม่ทราบวิธีนี้เลยค่ะ
ทำใน mac บุ๊คไม่ได้เป็นเพราะอะไรครับ
สูตรที่ให้มาใช้ได้แต่วินโดว์ใช่มั้ยครับ หากเป็น ios ต้องใช้สูตรไหนครับ
ยังไม่มีเลยค่ะ
โหลดภาพไม่ได้ครับ ...Error
สูตรที่ว่าจะแปะโค้ดใต้คลิปอยู่ตรงไหนครับ ผมมาติดอยู่ที่สูตรครับ
ตรงชื่อแทรกรูปภาพ จะมีสามเหลี่ยมเล็กๆอยู่ ลองกดดูนะคะ
โค้ดแทรกภาพ
------------------------------------------------------------------------------
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
------------------------------------------------------------------------------
ขออนุญาติสอบถาม สามารถแทรกรูปในตาราง ที่เป็นเซลล์ผสานแล้วให้รูปพอดีได้มั้ยครับ
ยังไม่เคยทำเลยค่ะ ลองทำดูค่ะ แล้วมาบอกด้วยครูกุ้งด้วยนะคะ ขอบคุณค่ะ
@@krukungit ผสานแล้วใส่รูปมันจะเท่า cell เล็กครับ ไม่ขยายตาม cell ที่เราผสาน
จะเข้าไปแก้คำสั่งก็แก้ไม่เป็นด้วยครับ
ตรง ActiveCell ผมลองเปลี่ยน MergeCell ก็ไม่ถูกครับ (มั่วแก้คำสั่งครับ)
เซฟ macro แล้ว ภาพยังหายเหมือนเดิม คุณครูพอจะมีวิธีแก้ไหมคะ รบกวนด้วยค่ะ
ต้องก็อบรูปส่งไปให้ด้วยค่ะ
ก็อปยังไงคะ
เหมือนกันเลยครับ
@@krukungit ส่งรูปไปด้วยเหรอ ยุ่งยากจัง
หาคำว่านักพัฒนาไม่เจอคะ
ไม่จำเป็นต้องใช้ชื่อไฟล์เป็น ใส่รูปภาพพอดี ก็ได้ใช่มั้ยคะ
ใช่ค่ะ
คูเราจะเอาสูดได้ไงขอได้ไหม
code ใส่ไว้ในปักหมุดกับใต้คลิปนะคะ
Copy code ยังไงคะครูกุ้ง
code ใส่ไว้ในปักหมุดกับใต้คลิปนะคะ
ส่งให้เพื่อนแล้วรูปหายครับ ต้องทำยังไงครับ
เซฟแบบมาโครก็ไม่ขึ้นหรอค่ะ
@@krukungit ใช่ครับ เซฟเป็น.xlsm ครับ
ส่งไปให้ นาย เปิดไม่ออกภาพครับ
ลองส่งไฟล์รูปไปด้วยค่ะ
Copy code ไม่ได้ค่ะ ทำไงคะ
สูตรอยู่ตรงไปนค่ะ
ใต้คลิปค่ะ
เอาสูตรต้องทำไง
code ใส่ไว้ในปักหมุดกับใต้คลิปนะคะ
โหลดสูตรไม่ได้คะ
code ใส่ไว้ในปักหมุดกับใต้คลิปนะคะ
ส่งต่อหายอยู่ดี
หายจริง
ขอโค้ดหน่อยครับ
โค้ดอยู่ใต้คลิปค่ะ
ใส่แล้วจะใช้ใด้ตลอดไหมครับ