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.
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