Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Excel - indsætte billeder med makro

139 views
Skip to first unread message

JensC

unread,
Jan 21, 2010, 7:01:06 AM1/21/10
to
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


Jan Kronsell

unread,
Jan 21, 2010, 11:36:51 AM1/21/10
to
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


Jan Kronsell

unread,
Jan 21, 2010, 11:38:34 AM1/21/10
to

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

unread,
Jan 22, 2010, 5:07:34 AM1/22/10
to
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$edfa...@dtext01.news.tele.dk...

JensC

unread,
Jan 22, 2010, 5:46:45 AM1/22/10
to
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$edfa...@dtext01.news.tele.dk...
>
>

Jan Kronsell

unread,
Jan 22, 2010, 11:26:07 AM1/22/10
to
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

JensC

unread,
Jan 23, 2010, 7:34:31 AM1/23/10
to

"Jan Kronsell" <kronsell(nomorespam)@adslhome.dk> skrev i en meddelelse
news:4b59d199$0$36558$edfa...@dtext01.news.tele.dk...
Det hjalp desv�rre ikke. Alle billeder bliver indsat i samme p� i toppen af
arket ca svarende til top og venstre margin.

Jens


Jan Kronsell

unread,
Jan 23, 2010, 9:29:11 AM1/23/10
to

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


JensC

unread,
Jan 23, 2010, 11:15:32 AM1/23/10
to
"Jan Kronsell" <kronsell(nomorespam)@adslhome.dk> skrev i en meddelelse
news:4b5b07b0$0$36558$edfa...@dtext01.news.tele.dk...

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


Jan Kronsell

unread,
Jan 23, 2010, 4:47:24 PM1/23/10
to

> 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


0 new messages