Datei finden - was fehlt?
30.05.2009 16:59:29
Peter
mit diesem Makro möchte ich den Hintergrund eines gezeichneten Viereckes ändern. Das ganze funktioniert, so lange ich den kompletten Pfad zur Grafik C:\Dokumente\.... im Makro eintrage.
Aus HTML Codes weis ich, dass sich diese Pfade auch abkürzen lassen indem man "..\Ordner\Grafikname.jpg" schreibt. Das ist praktisch weil ja die Pfade von PC zu PC unterschiedlich sind. In Excel funktioniert diese Abkürzung leider nicht.
Wer weiß, wie ich diesen Pfad so allgemein wie möglich halten kann? Vielen Dank schon mal für die Mithilfe!!!
Gruß
Peter
Sub hintergrund_wechseln()
ActiveSheet.Shapes("Rectangle 174").Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(236, 236, 243)
Selection.ShapeRange.Fill.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.UserTextured _
"..\Tabellen\hintergrund4.jpg"
Application.Goto Reference:="R1C1"
End Sub