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
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
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 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
Hej Morten, Er sendt. Håber du kan bruge den. Mvh. Jens
Synes godt om
Ny brugerNybegynder
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.
