Avatar billede pab1970 Nybegynder
28. august 2012 - 14:38 Der er 42 kommentarer og
1 løsning

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

Hej

Jeg vil gerne kunne vælge (indsætte og udskifte) et billeder i et Excel ark, ved valg i en rulle menu (drop down menu).

- Konkret har jeg x antal billeder, navngivet, i eks. bmp format
(kan fint være i andet format, og med en bestemt størrelse)

- I rullemenuen angiver jeg de forskellige billeders navn
(100 % sammenhæng i mellem billedets navn og teksten i rullemenuen).

- I mit Excel ark har jeg et defineret område
(x antal flettede celler).

Når jeg vælger et givent "navn" i rullemenuen, indsættes det "tilhørende billede", i det definerede område i arket.


Jeg er nogenlunde habil Excel bruger, ingen problemer med rullemenuer, dog ingen erfaring i macroer, så det skal nok være et brugervenligt svar :-)

VH. Peter
Avatar billede jens48 Ekspert
28. august 2012 - 23:01 #1
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
Avatar billede pab1970 Nybegynder
29. august 2012 - 08:31 #2
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 :-)
Avatar billede jens48 Ekspert
29. august 2012 - 09:38 #3
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.
Avatar billede pab1970 Nybegynder
29. august 2012 - 10:04 #4
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
Avatar billede pab1970 Nybegynder
29. august 2012 - 10:11 #5
Kunne man forstille sig at "ligge" billederne" på fane Ark2 ?
derved var filen uafhængig af, at kunne "se" et drev?
Avatar billede jens48 Ekspert
29. august 2012 - 10:23 #6
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
Avatar billede pab1970 Nybegynder
29. august 2012 - 10:31 #7
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!!!
Avatar billede jens48 Ekspert
29. august 2012 - 21:14 #8
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
Avatar billede pab1970 Nybegynder
31. august 2012 - 10:45 #9
Hej Jens

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

VH. Peter
Avatar billede steen--madsen Juniormester
21. december 2013 - 16:19 #10
muligt man også lige kunne få ark- steen@mail-online.dk
Avatar billede jens48 Ekspert
03. januar 2014 - 22:18 #11
Hej Steen,
Er blevet sendt
Avatar billede Nanna Praktikant
28. februar 2017 - 11:04 #12
Er der mulighed for at jeg kunne få arket også?- Nannabach9@gmail.com
Avatar billede jens48 Ekspert
28. februar 2017 - 13:08 #13
Hej Nanna,

Jeg har sendt arket til dig.
Avatar billede Tina Praktikant
03. oktober 2017 - 13:42 #14
Kan jeg også få tilsendt ark? tno1722@gmail.com
Tak:)
Avatar billede jens48 Ekspert
04. oktober 2017 - 03:59 #15
Hej Tina, filerne er sendt
Avatar billede nthorup Praktikant
20. november 2017 - 09:48 #16
Er det muligt også at få sendt arket til: nthorup@hotmail.com?
Ville være en stor hjælp :)

Mvh
Niels
Avatar billede jens48 Ekspert
20. november 2017 - 10:13 #17
Hej Niels,

Er blevet sendt
Avatar billede Jens Praktikant
22. november 2017 - 14:00 #18
Hej
Kunne man måske få en kopi af filen sendt til jens.b.petersen@gmail.com
Mange tak.
Avatar billede jens48 Ekspert
22. november 2017 - 19:32 #19
Hej Jens,
Er sendt.
Avatar billede DanB Praktikant
24. november 2017 - 12:53 #20
Hej Jens,

Kan jeg også få en kopi?

På forhånd tusind tak

mvh Dan
Avatar billede DanB Praktikant
24. november 2017 - 12:54 #21
Hov glemte mailen: dbn84@hotmail.com :)
Avatar billede jens48 Ekspert
27. november 2017 - 17:32 #22
Hej Dan,
Er sendt
Avatar billede Anders ks Praktikant
27. november 2017 - 21:25 #23
Hej Jens

Super tråd, vil du sende det til mig også as@saekkopresenning.dk
Avatar billede jens48 Ekspert
28. november 2017 - 23:15 #24
Hej Anders,
Er sendt
Avatar billede Anders K Praktikant
28. juni 2019 - 05:55 #25
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
Avatar billede jens48 Ekspert
28. juni 2019 - 17:14 #26
Hej Anders,
Er sendt.
Avatar billede Nicklas Thorup Praktikant
16. oktober 2019 - 15:59 #27
Hej Jens,

Kan du sende arket til Nicklasthorup@yahoo.dk ? :)
Avatar billede jens48 Ekspert
23. oktober 2019 - 22:58 #28
Hej Nicklas,
Er sendt.
Mvh.
Jens
Avatar billede rasmusd Praktikant
09. marts 2020 - 19:34 #29
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
Avatar billede jens48 Ekspert
09. marts 2020 - 20:11 #30
Hej Rasmus,
Er sendt.
Mvh.
Jens
Avatar billede Mads Praktikant
25. marts 2021 - 11:40 #31
Hej Jens. Nu ved jeg godt, at dette er en gammel tråd? Men kan man stadig få tilsendt arket?

roni@abena.dk
Avatar billede jens48 Ekspert
25. marts 2021 - 13:17 #32
Hej Mads,
Er sendt.
Mvh.
Jens
Avatar billede mjk2000 Praktikant
02. september 2021 - 10:58 #33
Hej Jens.
Håber også, at du vil sende arket hertil?
Tak på fohrånd.
Mvh. Mia
mjk@thansen.dk
Avatar billede jens48 Ekspert
02. september 2021 - 11:23 #34
Hej Mia,
Er sendt.
Mvh.
Jens
Avatar billede FruJensen Praktikant
03. februar 2022 - 16:52 #35
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
Avatar billede jens48 Ekspert
04. februar 2022 - 12:17 #36
Hej Inga,
Er sendt.
Mvh.
Jens
Avatar billede busborg194 Praktikant
23. februar 2022 - 15:08 #37
Hej. Jeg kan tilslutte mig de øvrige. Jeg vil også gerne bede om arket/filen, hvis muligt.

madviper3000@gmail.com

MVH Brian
Avatar billede jens48 Ekspert
23. februar 2022 - 17:49 #38
Hej Brian,
Er sendt.
Mvh.
Jens
Avatar billede prinsib Seniormester
12. juni 2022 - 21:00 #39
Hej Jens vil du sende en kopi til mig også.
ib@iof.dk
På forhånd tak.
Ib
Avatar billede jens48 Ekspert
13. juni 2022 - 00:05 #40
Hej Ib,
Er sendt.
Mvh.
Jens
Avatar billede Magni Juniormester
23. februar 2023 - 05:31 #41
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
Avatar billede Magni Juniormester
23. februar 2023 - 05:33 #42
Men måske var det også en ide at skrive mailadressen ;-)

mail@magnigruppen.dk
Avatar billede jens48 Ekspert
24. februar 2023 - 22:06 #43
Hej Morten,
Er sendt. Håber du kan bruge den.
Mvh.
Jens
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester