Navigation

   Hej
Jeg har fundet dette script og vil gerne modificere det, men det rækker evnerne ikke til.

 Nederst har jeg beskrevet hvad den gerne skulle kunne......

Public Const DefExtention = ".jpg"
Public Const DefLocation = "f:\gds-hj\"
Public Const IndtastningsKolonneBogstav = "A"
Public Const IndtastningsKolonnenr = 2
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(-1, 0)
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

Jeg har en side hvor jeg brug for at sætte 4 billeder ind i en række og 4 i en anden række.

jeg skal skrive filnavnet i i rækken og kolonnen under feltet hvor det skal vises f.eks skrive a2-vises A1 og så skrive nyt i c2 vist i c1......osv.  og dette skal så ske nogle rækker længere nede igen.

de skal helst som i ovenstående tilpasse sig til feltet. og man kun skal skrive filnavn.

Jeg har også brug for at den så sletter det billede der var i feltet når man taster et nyt filnavn, evt sætter et billede ind hvor der står at billedet mangler.

Håber en kan hjælpe med dette, da jeg bare ikke magter den opgave selv.

Brian

Navigation

automatisk billede