Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketIndsætte billeder fra folder

 Besvar Besvar
Forfatter
Goldie Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 14.Jan.2011
Land: Danmark
Status: Offline
Point: 17
Direkte link til dette indlæg Emne: Indsætte billeder fra folder
    Sendt: 01.Nov.2020 kl. 11:44
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
Til top



Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk