relativer pfad zu bildern
15.06.2004 09:39:14
joe
ich möchte mittels optionsfelder mehrere bilder auswählen können, die dann in die arbeitsmappe geladen werden.
dazu verwende ich folgenden code (beispiel an einem button, den ich dieses makro zugeordnet habe):
Sub dach_mit_anst()
Range("G21").Select
ActiveSheet.Pictures.Insert("e://excel/grafik_mit_anstand.jpg").Select
Selection.ShapeRange.IncrementLeft -111
Selection.ShapeRange.IncrementTop 60
End Sub
die arbeitsmappe und die bilder befinden sich alle im gleichen ordner e://excel
nun dachte ich, wenn ich die bilder nur mit ihrem namen anspreche, müssten diese doch von excel gefunden werden, damit die arbeitsmappe auch auf anderen rechnern läuft - leider ist dem aber nicht so.
Sub dach_mit_anst()
Range("G21").Select
ActiveSheet.Pictures.Insert("grafik_mit_anstand.jpg").Select
Selection.ShapeRange.IncrementLeft -111
Selection.ShapeRange.IncrementTop 60
End Sub
über eine hilfreiche antwort würde ich mich sehr freuen - danke im voraus
joe