• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

variabel path voor import afbeeldigen in Excel

Status
Niet open voor verdere reacties.

Bjorkie

Gebruiker
Lid geworden
12 sep 2017
Berichten
147
Hoi allen,
misschien een nogal lompe vraag, maar hier komt ze.
Ik importeer jpg bestandjes via volgend script in mijn excel lijst.
ik heb hiervoor echter een vast path moeten vastleggen.
op welke manier kan ik dit path variabel maken.
voorbeeld: Folder: ...\calculatie\Images\voor de afbeeldingen
...\calculatie\Book1.xlsm
liefst een map waar mijn bestand staat, en een folder op de zelfde locatie waar mijn jpg bestanden instaan.
ik zoek een oplossing om mijn tool ook vanaf een usb stick te kunnen starten.

Code:
'Import jpg images from created list
    Const Afb_map = "E:\Documents\test\images\"
    myarray = WorksheetFunction.Transpose(Range("D3", Range("D" & Rows.Count).End(xlUp)).Value)
'    ActiveSheet.Protect False, False, False, False, False
    If Not IsArray(myarray) Then Exit Sub
    On Error Resume Next
    lRow = 3
    For lLoop = LBound(myarray) To UBound(myarray)
        Set sShape = ActiveSheet.Shapes.AddPicture(Afb_map & myarray(lLoop) & ".jpg", msoFalse, msoCTrue, _
                Cells(1, 1).Left + 15, Cells(lRow, 2).Top + 8, -1, -1)
                With sShape
                    .ShapeRange.LockAspectRatio = msoTrue
                    .Height = 20
                End With
        lRow = lRow + 1
    Next lLoop
' select Cel A1 on Equipment page with cursor
'    Worksheets("Equipment list").Range("A1").Select
Application.ScreenUpdating = True
End Sub
 
Je Excel document staat in: ThisWorkbook.Path & "\"
 
Hoi Edmoor,
ik ben niet mee.

Code:
Const Afb_map = "E:\Documents\test\images\"
moet ik dan aanpassen in
Code:
    Const Afb_map = ThisWorkbook.Path & "\images\"
??
of moet ik de
Code:
Const Afb_map
wijzigen?
 
Ik heb volgende oplossing gemaakt

Code:
    Afb_map = ActiveWorkbook.Path & "\images\"

thx allen
 
Het is niet nodig deze als constante te declareren.

Dit is voldoende:
Afb_map = ThisWorkbook.Path & "\images"
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan