du kan downloade en billed resizer her:
http://www.mihov.com/eng/#irsimpelt program, men effektivt.
marker alle dine billeder -vælg ny størrelse - udfør
---------------
EXCELENT har lavet denne kode til mig en gang. Virker perfekt til at hente billeder, som du efterspørger i ver2007: Prøv at rette den til :-)
Sub worksheet_change(ByVal Target As Range)
If Intersect(Target, Range("AF19,AF32,AF45,AF58,AF71,AF84,AF97,AF110,AF123,AF136,AF149,AF162,AF175,AF188,AF201,AF214,AF227,AF240,AF253,AF266,AF279,AF292,AF305,AF318")) Is Nothing Then Exit Sub
On Error GoTo ud
Application.EnableEvents = False
rk = Mid(Target.Value, 15, 3) * 13 + 9
Sheets("pro").Range("A" & rk & ":AF" & rk + 12).Copy Cells(Target.Row + 1, 1)
ud:
Application.EnableEvents = True
End Sub