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