Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Warum funktioniert das Verknüpfen nicht ?

Forumthread: Warum funktioniert das Verknüpfen nicht ?

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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Warum funktioniert das Verknüpfen nicht ?
02.02.2009 09:05:10
fcs
Hallo Tom,
damit das einfügen des Objekts mit Symbol für Anwendung auch unter VBA funktioniert muss du in der Anweisung zusätzlich das Icon festlegen.
Den Code/Datei für das Icon muss du ermitteln, indem du das Einbetten des Objekts mit dem Recorder aufzeichnest und dabei ein andes Symbol festlegst.
Gruß
Franz

Sub test()
Dim dateiname As Variant
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, IconFileName:= _
"C:\WINDOWS\Installer\{90110407-6000-11D3-8CFE-0150048383C9}\xlicons.exe", _
IconIndex:=7, IconLabel:=dateiname).Select
End Sub


Anzeige
Danke, jetzt passts oT
02.02.2009 10:39:08
TomTom
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige