ThisWorkbook.Path

ez sztringként megadja a makrót tartalmazó workbook elérési útvonalát.  Ehhez már csak az & hozzáadásával hozzá kell adni a további részleteket, pld.

ThisWorkbook.Path & "\Mikikep.jpg"