---

Hej NG

Jeg har en mappe med billeder. Alle er JPG-billeder

Jeg har lavet en vareliste i et excel-ark og kunne nu godt tænke mig, at
hente billeder ind i arket. Varen står i kolonne A fra række 10 til 20 og
kan f.eks hedde AA12345. Det tilsvarende billede vil hedde
C:\billeder\AA12345.JPG.

Kan jeg lave en makro, der løber A10 - A20 igennem og henter tilhørende
billeder ind i arket?

mvh
Jens

---

JensC wrote:
> Hej NG
>
> Jeg har en mappe med billeder. Alle er JPG-billeder
>
> Jeg har lavet en vareliste i et excel-ark og kunne nu godt tænke mig,
> at hente billeder ind i arket. Varen står i kolonne A fra række 10
> til 20 og kan f.eks hedde AA12345. Det tilsvarende billede vil hedde
> C:\billeder\AA12345.JPG.
>
> Kan jeg lave en makro, der løber A10 - A20 igennem og henter
> tilhørende billeder ind i arket?
>
Prøv med

Sub IndsaetBilleder()
On Error Resume Next
For Each c In Range("A10:A20").Cells
ActiveSheet.Pictures.Insert("C:\billeder\" & c.Value & ".jpg").Select
Next c
End Sub

---

Det er nok i virkeligheden bedre med

Sub Makro1()
On Error Resume Next
For Each c In Range("A10:A12").Cells
c.Offset(0, 1).Select
ActiveSheet.Pictures.Insert("F:\Billeder\1-10-Januar\" & c.Value).Select
Next c
End Sub

Jan

---

Hej Jan

Tusind tak for hjælpen. Det var helt perfekt.

mvh
Jens

"Jan Kronsell" <kronsell(nomorespam)@adslhome.dk> skrev i en meddelelse
news:4b588309$0$36582$edfadb0f@dtext01.news.tele.dk...
>
>
> Det er nok i virkeligheden bedre med
>
> Sub Makro1()
> On Error Resume Next
> For Each c In Range("A10:A12").Cells
> c.Offset(0, 1).Select
> ActiveSheet.Pictures.Insert("F:\Billeder\1-10-Januar\" &
> c.Value).Select
> Next c
> End Sub
>
> Jan
>

---

Hej Jan

Jeg håber jeg må forstyrre dig igen.

Hvis jeg gerne vil have billederne placeret et bestemt sted f.eks 60 rækker
under varenr, kan det så lade sig gøre?

pft
Jens

"Jan Kronsell" <kronsell(nomorespam)@adslhome.dk> skrev i en meddelelse
news:4b588309$0$36582$edfadb0f@dtext01.news.tele.dk...
>
>
> Det er nok i virkeligheden bedre med
>
> Sub Makro1()
> On Error Resume Next
> For Each c In Range("A10:A12").Cells
> c.Offset(0, 1).Select
> ActiveSheet.Pictures.Insert("F:\Billeder\1-10-Januar\" &
> c.Value).Select
> Next c
> End Sub
>
> Jan
>

---

JensC wrote:
> Hej Jan
>
> Jeg håber jeg må forstyrre dig igen.
>
> Hvis jeg gerne vil have billederne placeret et bestemt sted f.eks 60
> rækker under varenr, kan det så lade sig gøre?
>

Prøv

Sub IndsaetBilleder()
On Error Resume Next
For Each c In Range("A10:A20").Cells
c.Offset(60, 0).Select
ActiveSheet.Pictures.Insert("C:\billeder\" & c.Value & ".jpg").Select
Next c
End Sub

Jan

---

"Jan Kronsell" <kronsell(nomorespam)@adslhome.dk> skrev i en meddelelse
news:4b59d199$0$36558$edfadb0f@dtext01.news.tele.dk...
> JensC wrote:
>> Hej Jan
>>
>> Jeg håber jeg må forstyrre dig igen.
>>
>> Hvis jeg gerne vil have billederne placeret et bestemt sted f.eks 60
>> rækker under varenr, kan det så lade sig gøre?
>>
>
> Prøv
>
> Sub IndsaetBilleder()
> On Error Resume Next
> For Each c In Range("A10:A20").Cells
> c.Offset(60, 0).Select
> ActiveSheet.Pictures.Insert("C:\billeder\" & c.Value & ".jpg").Select
> Next c
> End Sub
>
> Jan
Det hjalp desværre ikke. Alle billeder bliver indsat i samme på i toppen af
arket ca svarende til top og venstre margin.

Jens

---

JensC wrote:
> "Jan Kronsell" <kronsell(nomorespam)@adslhome.dk> skrev i en
> meddelelse news:4b59d199$0$36558$edfadb0f@dtext01.news.tele.dk...
>> JensC wrote:
>>> Hej Jan
>>>
>>> Jeg håber jeg må forstyrre dig igen.
>>>
>>> Hvis jeg gerne vil have billederne placeret et bestemt sted f.eks 60
>>> rækker under varenr, kan det så lade sig gøre?
>>>
>>
>> Prøv
>>
>> Sub IndsaetBilleder()
>> On Error Resume Next
>> For Each c In Range("A10:A20").Cells
>> c.Offset(60, 0).Select
>> ActiveSheet.Pictures.Insert("C:\billeder\" & c.Value &
>> ".jpg").Select Next c
>> End Sub
>>
>> Jan
> Det hjalp desværre ikke. Alle billeder bliver indsat i samme på i
> toppen af arket ca svarende til top og venstre margin.
>
> Jens

Det virker fint hos mig. Billederne bliver indsat en celle forskudt, 6+0
celler under den celle, hvor billedets navne står.
Billedeplacering under billedegrnskaber er stat til Flyt sammen med celle.

Jan

---

"Jan Kronsell" <kronsell(nomorespam)@adslhome.dk> skrev i en meddelelse
news:4b5b07b0$0$36558$edfadb0f@dtext01.news.tele.dk...
> JensC wrote:
>> "Jan Kronsell" <kronsell(nomorespam)@adslhome.dk> skrev i en
>> meddelelse news:4b59d199$0$36558$edfadb0f@dtext01.news.tele.dk...
>>> JensC wrote:
>>>> Hej Jan
>>>>
>>>> Jeg håber jeg må forstyrre dig igen.
>>>>
>>>> Hvis jeg gerne vil have billederne placeret et bestemt sted f.eks 60
>>>> rækker under varenr, kan det så lade sig gøre?
>>>>
>>>
>>> Prøv
>>>
>>> Sub IndsaetBilleder()
>>> On Error Resume Next
>>> For Each c In Range("A10:A20").Cells
>>> c.Offset(60, 0).Select
>>> ActiveSheet.Pictures.Insert("C:\billeder\" & c.Value &
>>> ".jpg").Select Next c
>>> End Sub
>>>
>>> Jan
>> Det hjalp desværre ikke. Alle billeder bliver indsat i samme på i
>> toppen af arket ca svarende til top og venstre margin.
>>
>> Jens
>
> Det virker fint hos mig. Billederne bliver indsat en celle forskudt, 6+0
> celler under den celle, hvor billedets navne står.
> Billedeplacering under billedegrnskaber er stat til Flyt sammen med celle.
>
> Jan

Nu er jeg prøvet i Excel 2002 og der virker det. I 2007 virker det ikke.

Jeg må finde ud af, hvad man gør i version 2007.

Tak for hjælpen
Jens

---

> Nu er jeg prøvet i Excel 2002 og der virker det. I 2007 virker det
> ikke.
> Jeg må finde ud af, hvad man gør i version 2007.
>
> Tak for hjælpen

Velbekomme. Jeg må indrømme at jeg kun har testet 2003.

Jan