🚀 go-pugleaf

Moze ma ktos jakis pomysl, bo ja juz nie wiem jak zakonczyc petle
bez bledu. Pisze sobie makro które ma za zadanie wstawianie
obrazów do dokumentu z podanego w kodzie katalogu. Obrazy maja byc
wstawione wszystkie, tyle ze problem jest z zakonczeniem petli.
Ponizej przedstawiam kod makra:

Sub wstaw_rysunek()

Dim plik, aPath, bPath, lFile As String
Dim k As Variant

aPath = "E:\aaa\"
plik = Dir("E:\aaa\*.jpg")

   Selection.InlineShapes.AddPicture FileName:=aPath & plik, _
        LinkToFile:=False, SaveWithDocument:=True

Do Until plik =  'NO I W TEJ LINI JEST MOJA ZAGADKA
plik = Dir()

   Selection.InlineShapes.AddPicture FileName:=aPath & plik, _
        LinkToFile:=False, SaveWithDocument:=True

Loop
End Sub


Bo wiadomo, ze jak wpisze cokolwiek dajmy na to plik = "", to
oczywiscie wstawi wszystkie obrazy do dokkumentu, ale pokazuje blad. No
bo wiadomo, ze zmienna plik nigdy nie przyjmie wartosci "", no chyba
ze w katalogu nie bedzie zadnych plików (ale sa). No ja sie
zastanawialem nad czyms takim, jak ostatni plik, który jest
okreslany przez nazwe (bo leca sobie alfabetycznie), ale nie mam
pojecia jaka funkcja zwraca taka wlasciwosc. Pomózcie prosze.

Dzieki z góry za odpowiedzi.
Pozdrawiam

Good Ghost