Icon beim Einfügen von Objekten genau plazieren
13.02.2009 21:41:00
Objekten
ich lade mit dem Code (Beispiel von hier) ein Anhang in ein Sheet rein. Das funktioniert auch gut. Nur wenn ich zwei Objekte nacheinander einfügen, landen die Icons immer übereinander, also das zweite legt sich bei laden direkt auf das erste. Ich habe aber nur diese eine Zelle C39 zum einfügen.
Die Zelle ist eigentlich ziemlich breit um 4 oder 5 Icons nebeneinander zu gekommen.
Meine Frage: kann ich die Icons beim einfügen so platzeien, wenn schon eines drin ist, das nächste direkt daneben zu Platzieren ? Hier mal der Code:
Dim Dateiname As Variant
Dateiname = Application.GetOpenFilename '("Micrsoft Excel-Dateien (*.xls),*.xls")
If Dateiname = False Then Exit Sub
Range("C39").Select
ActiveSheet.OLEObjects.Add(Filename:=Dateiname, Link:=False, _
DisplayAsIcon:=True, IconFileName:= _
"C:\WINDOWS\Installer\{90110409-6000-11D3-8CFE-0150048383C9}\xlicons.exe", _
IconIndex:=5, IconLabel:=Dateiname).Select
Danke mal
Joachim