Page 1 of 1
Macro : ดึงรูปจาก Folder โชว์ใน excel
Posted: Fri Sep 20, 2019 10:50 am
by lockmada
จากที่ผมใช้ของที่อาจารย์แนะนำ ผลคือใช้ได้ปกติ
แต่พอดีต้องการเพิ่มให้เลือกช่อง H ไปด้วยในไฟล์ปลายทางไปพร้อมกับช่อง B
รบกวนด้วยครับ ขอบคุณครับ ไมแน่ใจว่าผมเพิ่มถูกหรือเปล่า
Sub ShowPicture()
Dim r As Range, ra As Range
Dim imgIcon As Object
Dim obj As Object
On Error Resume Next
With Worksheets("Employee")
Set ra = .Range("C3", .Range("F65536").End(xlUp).Offset(0, 1))
Set rr = .Range("H3", .Range("F65536").End(xlUp).Offset(0, 1))
End With
For Each obj In ActiveSheet.Shapes
If Left(obj.Name, 4) = "Pict" Then
obj.Delete
End If
Next obj
For Each r In ra
Set imgIcon = ActiveSheet.Shapes.AddPicture( _
Filename:="D:\Data18\CallCenter-MagicButton3\" rr.Offset(0, -1) & "\" & r.Offset(0, -1)&.Value & ".png", LinkToFile:=False, _
SaveWithDocument:=True, Left:=r.Left, Top:=r.Top, _
Width:=r.Width, Height:=r.Height)
Next r
End Sub
Re: Macro : ดึงรูปจาก Folder โชว์ใน excel
Posted: Sat Sep 21, 2019 11:09 am
by snasui
ค่อย ๆ ถามตอบกันไปครับ
ต้องการให้รูปแสดงในคอลัมน์ไหนบ้างโดยดูจากค่าอะไรครับ
Re: Macro : ดึงรูปจาก Folder โชว์ใน excel
Posted: Tue Sep 24, 2019 8:28 am
by lockmada
ให้รูปแสดงในช่อง C ครับ
โดยดึงจากค่าในช่องเลขพนักงานในช่อง B และชื่อแผนกในช่อง H
เพื่อสร้าง \\192.168.1.9\S_Picture_Tpoly\Employee\HO\Accounting\551088.jpg
สีน้ำเงินคือแถว B
สีแดงคือแถว H ครับ
Re: Macro : ดึงรูปจาก Folder โชว์ใน excel
Posted: Wed Sep 25, 2019 10:57 am
by snasui
ตัวอย่าง Code ครับ
Code: Select all
Dim r As Range, ra As Range
Dim imgIcon As Object
Dim strPath As String
Dim obj As Object
On Error Resume Next
strPath = "\\192.168.1.9\S_Picture_Tpoly\Employee\HO\"
With Worksheets("Employee")
Set ra = .Range("C3", .Range("B65536").End(xlUp).Offset(0, 1))
End With
For Each obj In ActiveSheet.Shapes
If Left(obj.Name, 4) = "Pict" Then
obj.Delete
End If
Next obj
For Each r In ra
Set imgIcon = ActiveSheet.Shapes.AddPicture( _
Filename:=strPath & r.Offset(0, 3).Value & "\" & r.Offset(0, -1).Value & "jpg", _
LinkToFile:=False, SaveWithDocument:=True, _
Left:=r.Left, Top:=r.Top, Width:=r.Width, Height:=r.Height)
Next r
Re: Macro : ดึงรูปจาก Folder โชว์ใน excel
Posted: Wed Sep 25, 2019 1:14 pm
by lockmada
ได้แล้วคับ อาจารย์ ขอบคุณมากๆครับ