แสดงรูปข้างหน้าชื่อ

[mr.zatan]

จาก Code ด้านล่าง อยากให้แสดงรูปด้านหน้าชื่อ ครับ
เพราะตอนนี้รูปจะแสดงด้านหลังชื่อ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim r As Range, ra As Range
    Dim imgIcon As Object
    Dim obj As Object
    On Error Resume Next
    With Worksheets("New.Order")
        Set ra = .Range("B1000", .Range("C4:C1000").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:\imagee\" & r.Offset(0, -1).Value & ".jpg", LinkToFile:=False, _
        SaveWithDocument:=True, Left:=r.Left, Top:=r.Top, _
        Width:=50, Height:=r.Height)
    Next r
End Sub

[parakorn]

แนบไฟล์ที่มีโค้ดมาด้วยครับ เพื่อนๆจะได้พอเห็นภาพ

[mr.zatan]

แบบนี้ครับ:


มีไฟล์แนบครับ:

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
With Worksheets("Sheet1")
    Set ra = .Range("B2", .Range("B" & .Rows.Count).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:\imagee\" & r.Offset(0, 1).Value & ".jpg", LinkToFile:=False, _
    SaveWithDocument:=True, Left:=r.Left, Top:=r.Top, _
    Width:=50, Height:=r.Height)
Next r
'Other code

[mr.zatan]

ขอบคุณมากครับ

[mr.zatan]

ปัญหาตอนนี้คือ พอมีจำนวนเยอะๆๆแล้วโหลดนานครับ เหมือนว่า เวลาเพิ่มชื่อ ก็จะดึงรูปใหม่ทั้งหมดเลย ก็เลยช้า

เป็นไปได้มัย ถ้าจะให้ดึงรูปเฉพาะอันที่เราเพิ่ม โดยไม่ต้อง ดึงรูปซ้ำ

[snasui]

การใช้ Code ล้วนเป็นไปได้ทั้งสิ้นครับ

ต้องมีหลักการในการตรวจสอบว่าโปรแกรมจะรู้ได้อย่างไรว่าอันไหนเพิ่ม อันไหนมีอยู่แล้วจะต้องออกแบบและลองเขียนมาก่อน ติดแล้วค่อยถามกันครับ

การนำภาพมาแสดงใน Excel ควรทำเท่าที่จำเป็นไม่ควรใช้ภาพเป็น Database เพราะ Excel ไม่เหมาะกับการเก็บภาพจำนวนมากครับ