Indsættelse af billeder i Excel, ved valg fra en rullemenu

Hvis du har navnene på billederne stående i A2 og nedefter, kan denne makro bruges:

Sub macroInsertPicture()
    Cells(10, 10).Select 'bestemmer hvor billedet skal indsættes
    ActiveSheet.Pictures.Delete
    ActiveSheet.Pictures.Insert("C:\Documents and Settings\Administrator\My Documents\My Pictures\" & Cells(1, 1).Offset(Cells(1, 3), 0)).Select  'tilpas sti
    Cells(1, 1).Select
End Sub

Combo boxen skal aktivere makroen og have input-område fra A2 og nedefter, samt celle-link i C1

Tak for din tilbagemelding, jeg har dog behov for lidt uddybelse.

Hvis mine billeder ligger på C:\Skitser\
(her ligger S1, S2, S3 osv...)

I celle A2 står eks. S2
I celle A3 kopieres nedenstående

Sub macroInsertPicture()
    Cells(10, 10).Select 'bestemmer hvor billedet skal indsættes
    ActiveSheet.Pictures.Delete
    ActiveSheet.Pictures.Insert(C:\Skitser\ & Cells(1, 1).Offset(Cells(1, 3), 0)).Select  'tilpas sti ???
    Cells(1, 1).Select
End Sub


bær over med mig :-)

I A2 skal der stå S2, i A3 skal der stå S3 osv.
Makroen sættes ind ved at højreklikke på fanebadet og vælge View Code. For Combo boxen (Rullegardinet) vælger du A2 og nedefter (så langt som nødvendigt) som input. C1 vælges som celle-link. Højreklik på Combo boxen, vælg Assign Macro og vælg den indsatte makro.

Beklager min netop opdaget ringe viden om Excel. Har du mulighed for at sende mig et eksempel på mail (ligger billeder under C:\Skitser ). Jeg har Excel version 2010.
Min mail er pb@knudsenkoling.dk
VH. Peter

Kunne man forstille sig at "ligge" billederne" på fane Ark2 ?
derved var filen uafhængig af, at kunne "se" et drev?

Hvis du lægger billederne på ark2 bliver filen meget stor, fordi den skal indeholde dem alle. Jeg sender dig noget i aften.
Mvh.
Jens

Det lyder fantastisk!!!
det gør ikke noget at filen bliver stor, da jeg på den måde holder alt samlet i én Excek fil.
På forhånd tak!!!

Jeg har sendt dig to excel filer med nedenstående makroer:

Henter billeder fra C:\skitser:

Sub macroInsertPicture()
    Cells(10, 10).Select 'bestemmer hvor billedet skal indsættes
    ActiveSheet.Pictures.Delete ' sletter det gamle billede
    ActiveSheet.Pictures.Insert("C:\Skitser\" & Cells(1, 1).Offset(Cells(1, 3), 0)).Select  'tilpas sti
    Selection.ShapeRange.LockAspectRatio = msoTrue 'bibeholder forholdet mellem højde og bredde på billedet
    Selection.ShapeRange.Height = 165 'justeres så billedet får den rigtige størrelse
    Cells(1, 1).Select
End Sub


Henter billeder fra Sheet1:

Sub macroInsertPicture()
    Cells(10, 10).Select 'bestemmer hvor billedet skal indsættes
    ActiveSheet.Pictures.Delete ' sletter det gamle billede
    Sheets("Sheet1").Select
    ActiveSheet.Shapes(Cells(1, 1).Offset(Cells(1, 3), 0)).Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Paste
    Selection.ShapeRange.LockAspectRatio = msoTrue 'bibeholder forholdet mellem højde og bredde på billedet
    Selection.ShapeRange.Height = 165 'justeres så billedet får den rigtige størrelse
    Cells(1, 1).Select
End Sub

PS: Det er ikke dig der skal give svar. Du skal acceptere svar, hvis du kan bruge det. Du får et her, i håbet om at det er OK

Hej Jens

Det fungere perfekt. Tak for hjælpen!!!

VH. Peter

muligt man også lige kunne få ark- steen@mail-online.dk

Hej Steen,
Er blevet sendt

Er der mulighed for at jeg kunne få arket også?- Nannabach9@gmail.com

Hej Nanna,

Jeg har sendt arket til dig.

Kan jeg også få tilsendt ark? tno1722@gmail.com
Tak:)

Hej Tina, filerne er sendt

Er det muligt også at få sendt arket til: nthorup@hotmail.com?
Ville være en stor hjælp :)

Mvh
Niels

Hej Niels,

Er blevet sendt

Hej
Kunne man måske få en kopi af filen sendt til jens.b.petersen@gmail.com
Mange tak.

Hej Jens,
Er sendt.

Hej Jens,

Kan jeg også få en kopi?

På forhånd tusind tak

mvh Dan

Hov glemte mailen: dbn84@hotmail.com :)

Hej Dan,
Er sendt

Hej Jens

Super tråd, vil du sende det til mig også as@saekkopresenning.dk

Hej Anders,
Er sendt

Hej

Tror dette er præcis hvad jeg leder efter, har du mulighed for at sende det til mig også? :)

På forhand mange tak.

Anders.tow.kristensen@gmail.com

Hej Anders,
Er sendt.

Hej Jens,

Kan du sende arket til Nicklasthorup@yahoo.dk ? :)

Hej Nicklas,
Er sendt.
Mvh.
Jens

Hej, Jeg kunne også godt tænke mig at få sendt filerne, selvom at det er lang tid siden.
Mvh. Rasmus

Mail: filer@dellgren.dk

Hej Rasmus,
Er sendt.
Mvh.
Jens

Hej Jens. Nu ved jeg godt, at dette er en gammel tråd? Men kan man stadig få tilsendt arket?

roni@abena.dk

Hej Mads,
Er sendt.
Mvh.
Jens

Hej Jens.
Håber også, at du vil sende arket hertil?
Tak på fohrånd.
Mvh. Mia
mjk@thansen.dk

Hej Mia,
Er sendt.
Mvh.
Jens

Hej
Jeg så denne fantastiske streng, som er startet for lang tid siden.
Jeg vil også gerne bed om filen, hvis du vil sende den til igj@fisker.as

På forhånd tak.

Mvh Inga

Hej Inga,
Er sendt.
Mvh.
Jens

Hej. Jeg kan tilslutte mig de øvrige. Jeg vil også gerne bede om arket/filen, hvis muligt.

madviper3000@gmail.com

MVH Brian

Hej Brian,
Er sendt.
Mvh.
Jens

Hej Jens vil du sende en kopi til mig også.
ib@iof.dk
På forhånd tak.
Ib

Hej Ib,
Er sendt.
Mvh.
Jens

Hej Jens
Jeg faldt lige over denne gamle tråd, da jeg sidder med samme udfordring.
Eksistere arket stadig? så kunne jeg godt tænke mig en kopi.
På forhånd tak ;-)
Dbh
Morten

Men måske var det også en ide at skrive mailadressen ;-)

mail@magnigruppen.dk

Hej Morten,
Er sendt. Håber du kan bruge den.
Mvh.
Jens