Sætte billeder ind i google sheets ark ud fra elev nummer

Prøv med =HYPERFLINK

Jeg har tilpasset en gammel makro jeg havde liggende, så den nu indsætter de første 7 billeder (dem hvis navne står i N5:N11). Måske kan du arbejde lidt videre med den.

Sub macroInsertPicture()
    ActiveSheet.Pictures.Delete ' sletter de gamle billeder
For x = 5 To 11

    Cells(28, x - 4).Select 'bestemmer hvor billedet skal indsættes
      ActiveSheet.Pictures.Insert("C:\Skitse\" & Cells(x, 14)).Select  'tilpas sti
    Selection.ShapeRange.LockAspectRatio = msoTrue 'bibeholder forholdet mellem højde og bredde på billedet
    Selection.ShapeRange.Height = 80 'justeres så billedet får den rigtige størrelse
    Cells(1, 1).Select
   
Next
End Sub

Hej Jens48

1000 tak for det flotte arbejde.

Skal jeg bare indsætte det herunder ?
Hvordan gør jeg ?


Sub macroInsertPicture()
    ActiveSheet.Pictures.Delete
For x = 5 To 11

    Cells(28, x - 4).Select
      ActiveSheet.Pictures.Insert("C:\Skitse\" & Cells(x, 14)).Select 
    Selection.ShapeRange.LockAspectRatio = msoTrue 
    Selection.ShapeRange.Height = 80    Cells(1, 1).Select
 
Next
End Sub

Højreklik på fanebadet og vælg Vis Koder. Indsæt makroen der

Jens48

Syntes ikke jeg kan finde det under fanen ?

Under macro kan jeg kun optage en ?

Det forstår jeg ikke. Jeg har ganske vist en engelsk version, men når jeg højreklikker på fanebladet i bunden af skærmen kommer View code frem som nr. 5 på listen.

Alternativt kan du aktivere Alt + F11 og i venstre side vælge det relevante ark.

Hej Jens48

syntes ikke det er sådan hos mig

https://drive.google.com/file/d/1xwH-3FWeKWyMp5CIqCEkLyAoqFU2S-jb/view?usp=drive_link

Ups, Jeg havde overset at du bruger Google sheets. Kender ikke Google sheets, så jeg ved ikke hvor man kan indsætte makroen.
Jeg spurgte AI om man kan bruge Excel makroer (VBA) i Google sheets og fik følgende svar:
Nej, du kan ikke køre Excel-makroer (VBA-kode) direkte i Google Sheets, da de bruger to helt forskellige kodesprog.  Excel bruger VBA (Visual Basic for Applications), hvorimod Google Sheets bruger Google Apps Script, som er baseret på JavaScript.
Er bange for at jeg ikke kan hjælpe. Beklager

Giv mig lige lidt tid...det er som du beskriver i Excel

Tænker jeg kan lave det i excel med de 20 billeder pr ark og kopier billederne over i google sheets ? eller er det helt umulig ?

Vel ikke helt umuligt. Sig til hvis der er noget jeg kan hjælpe med i Excel

Jens48

Hvor er du en god mand...tak for dig

Her er der en fil
https://www.transfernow.net/dl/2026082487t2wh5y

elev nummer i N5-N27 ( i dette ark er det uden elev nummer N11 og N19)

Billeder i A28-J28 ( i dette ark inden billeder i G28)
Billeder i A35-J35 ( i dette ark inden billeder i D35)

Mine billeder er i D:\Rammefoto Alle\Rammefoto 26_27

jens48

Hej Jens

Kan du hjælpe mig her ?

På forhånd tak

Jeg har lavet lidt om, så der ikke er sammenlagte celler , og så der er en linje for hver gruppe.

https://we.tl/t-UYoOa4gpuREmZDCw

Jens48

Det ser meget spændende ud. Der kommer en fejl når jeg kører den ?

https://we.tl/t-Z9s9HcL3TTUEJCyd

Jeg åbner filen
højre klikker på fanen
Vis programkode
run

Fik desværre ikke downloaded din fil før den forsvandt, men er problemet ikke at du ikke har alle billederne? Hvis ja, kan det klares med en ekstra linje i makroen (On error resume next):

Sub macroInsertPicture()
    ActiveSheet.Pictures.Delete ' sletter de gamle billeder
On Error Resume Next
For x = 5 To 11
    Cells(28, x - 4).Select 'bestemmer hvor billedet skal indsættes
      ActiveSheet.Pictures.Insert("C:\Skitse\" & Cells(x, 14)).Select  'tilpas sti
    Selection.ShapeRange.LockAspectRatio = msoTrue 'bibeholder forholdet mellem højde og bredde på billedet
    Selection.ShapeRange.Height = 80 'justeres så billedet får den rigtige størrelse
    Cells(1, 1).Select
Next

For x = 13 To 19
    Cells(30, x - 12).Select 'bestemmer hvor billedet skal indsættes
      ActiveSheet.Pictures.Insert("C:\Skitse\" & Cells(x, 14)).Select  'tilpas sti
    Selection.ShapeRange.LockAspectRatio = msoTrue 'bibeholder forholdet mellem højde og bredde på billedet
    Selection.ShapeRange.Height = 80 'justeres så billedet får den rigtige størrelse
    Cells(1, 1).Select
Next

For x = 21 To 27
    Cells(32, x - 20).Select 'bestemmer hvor billedet skal indsættes
      ActiveSheet.Pictures.Insert("C:\Skitse\" & Cells(x, 14)).Select  'tilpas sti
    Selection.ShapeRange.LockAspectRatio = msoTrue 'bibeholder forholdet mellem højde og bredde på billedet
    Selection.ShapeRange.Height = 80 'justeres så billedet får den rigtige størrelse
    Cells(1, 1).Select
Next

End Sub

Jens48

1000 tak det virker