Macro : ดึงรูปจาก Folder โชว์ใน excel

[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

[snasui]

ค่อย ๆ ถามตอบกันไปครับ

ต้องการให้รูปแสดงในคอลัมน์ไหนบ้างโดยดูจากค่าอะไรครับ

[lockmada]

ให้รูปแสดงในช่อง C ครับ

โดยดึงจากค่าในช่องเลขพนักงานในช่อง B และชื่อแผนกในช่อง H
เพื่อสร้าง \\192.168.1.9\S_Picture_Tpoly\Employee\HO\Accounting\551088.jpg

สีน้ำเงินคือแถว B
สีแดงคือแถว H ครับ

[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

[lockmada]

ได้แล้วคับ อาจารย์ ขอบคุณมากๆครับ