Hej
men der er nogle små rettelser som ikke er lykkedes at finde på nettet.
Den første: Når der klikker på knappen "Opdater alle" indsættes alle billeder oven på de eksisterende. Kan det gøres så der eksisterende billeder bliver slettet og derefter aktuelle billeder bliver sat in.
Det andet: når billederne bliver indsat ville jeg gerne have den centeret i cellen og rækken automatisk blev justeret til f.eks. 35 i højden.
Her er koden fra modulet
Public Const DefExtention = ".jpg"
Public Const DefLocation = "C:\Foto\"
Public Const IndtastningsKolonneBogstav = "A"
Public Const IndtastningsKolonnenr = 1
Public Const IndtastningsStartRaekke = 2
Public Const IndtastningsSlutRaekke = 20
Sub Batch()
For Each c In Ark1.Range(IndtastningsKolonneBogstav & IndtastningsStartRaekke & ":" & IndtastningsKolonneBogstav & IndtastningsSlutRaekke).Cells
InsertPictureInRange DefLocation & c.Value & DefExtention, c.Offset(0, 1)
Next c
End Sub
Sub InsertPictureInRange(PictureFileName As String, TargetCells As Range)
Dim p As Object, t As Double, l As Double, w As Double, h As Double
If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
If Dir(PictureFileName) = "" Then Exit Sub
Set p = ActiveSheet.Pictures.Insert(PictureFileName)
With TargetCells
t = .Top
l = .Left
w = .Offset(0, .Columns.Count).Left - .Left
h = .Offset(.Rows.Count, 0).Top - .Top
End With
With p
.Top = t
.Left = l
.Width = w
.Height = h
End With
Set p = Nothing
End Sub
På forhånd tusind tak for hjælp
Forum start
Forummets regler
Sådan uploader du filer
Marker Accepteret løsning
Del dine regneark
Excel-regneark.dk
Indsætte billeder fra folder
Emne funktioner
