Pfadangabe in einem Anhang-Icon
18.05.2009 09:55:02
Joachim
mit diesem Code will ich in mein Sheet Anhänge reinmachen, geht auch ganz gut. Frage: was muss ich ändern, dass unterhalb des Icons nicht der ganze Pfad angezeigt wird, sondern nur der reine Dateiname.
Dim Dateiname As Variant
Dim ooObjekt As OLEObject
Dateiname = Application.GetOpenFilename '("Micrsoft Excel-Dateien (*.xls),*.xls")
If Dateiname = False Then Exit Sub
Set ooObjekt = ActiveSheet.OLEObjects.Add(Filename:=Dateiname, Link:=False, _
DisplayAsIcon:=True, IconFileName:= _
"C:\WINDOWS\Installer\{90110409-6000-11D3-8CFE-0150048383C9}\xlicons.exe", _
IconIndex:=5, IconLabel:=Dateiname)
With ooObjekt
.Top = Range("C39").Top + 4
Danke
Joachim