แทรกรูปภาพใน 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