Sub INSERT_PIC()
Application.ScreenUpdating = False
On Error Resume Next
' Macro3 Macro
' Macro recorded 22/05/2002 by SVK
'
Worksheets("Picture").Select
lrow = Worksheets("Details").Range("F65536").End(xlUp).Row
'For t = 6 To 6618 march 16
t = 1
For i = 2 To lrow
i = i
design = Worksheets("Details").Range("F" & i).Value
kt = Worksheets("Details").Range("G" & i).Value & " / " & Worksheets("Details").Range("H" & i).Value
gwt = Worksheets("Details").Range("I" & i).Value
Net = Worksheets("Details").Range("J" & i).Value
dwt = Worksheets("Details").Range("K" & i).Value
cwt = Worksheets("Details").Range("L" & i).Value
Field1 = Worksheets("Details").Range("M" & i).Value
Field2 = Worksheets("Details").Range("N" & i).Value
Range("A" & t).Select
pic1 = Range("D1") & design & ".jpg"
ActiveSheet.Pictures.Insert(pic1).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 155.75
Selection.ShapeRange.Width = 155.75
Selection.ShapeRange.Top = ActiveSheet.Range("A" & t).Top + 5
Selection.ShapeRange.Left = ActiveSheet.Range("A" & t).Left + 5
' Selection.ShapeRange.IncrementLeft 6.25
'Selection.ShapeRange.IncrementTop 6.25
ActiveCell.Select
ActiveCell.Offset(1, 0).Value = design
ActiveCell.Offset(2, 0).Value = "Gross wt :" & Format(gwt, "0.00")
ActiveCell.Offset(3, 0).Value = "Dia wt :" & Format(dwt, "0.00")
ActiveCell.Offset(4, 0).Value = "Dia wt :" & Format(cwt, "0.00")
' stop value
'suresh
ActiveCell.Offset(1, 1).Value = kt
ActiveCell.Offset(2, 1).Value = "Net wt :" & Format(Net, "0.00")
ActiveCell.Offset(3, 1).Value = Field1
ActiveCell.Offset(4, 1).Value = Field2
