Snasui Excel Forum

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


Left กับ Top ชิดเส้นเกินไปครับ ขยับออกจากเส้นได้ไหมครับ

VBA ทำได้แทบทุกเรื่อง กรุณาวาง Code ให้เป็น Style Code อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบครับ

ควรปรับ Code มาเองก่อนเสมอครับ

Left:=r.Left, Top:=r.Top ปรับเองได้ว่าจะให้บวกเท่าใด ลบเท่าใด เช่น Left:=r.Left - 5, Top:=r.Top + 10 เป็นต้น

ซ้าย กับ บนได้แล้วแต่กลับมาติดด้านล่างแทนครับ

ได้แล้วครับ ขอบคุณครับ