Warum funktioniert das Verknüpfen nicht ?
01.02.2009 22:58:20
TomTom
Hallo,
also, ich möchte per Makro eine andere Datei in mein Excel Sheet als Symbol einbinden. Also das Gleiche, was man über EINFÜGEN / OBJEKT / AUS DATEI ERSTELLEN (als Symbol) macht :
Dateiname = Application.GetOpenFilename _
("Micrsoft Excel-Dateien (*.xls),*.xls")
If Dateiname = False Then Exit Sub
Range("A50").Select
ActiveSheet.OLEObjects.Add(Filename:=Dateiname, Link:=False, _
DisplayAsIcon:=True).Select
Das Verknüpfen oder einfügen des Objekts funktioniert zwar, aber das icon wird nicht dasgestellt. Ich sehe nur ein kleines leeres Quadrat, das man anklicken kann. Das Objekt geht zwar auf, sieht aber nicht gut aus oder man sieht nicht, das da noch ein Objekt eingefügt ist.
Weiss jemand , warum
Danke Tom