Рет қаралды 70,667
#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