Hallo,
mal wieder ein Problem...
Manuelles vorgehen:
Zeichnung öffnen,
Verwalten - Objekt einfügen
Objekt aus Datei erstellen (Excel Arbeitsblatt)
Datei auswählen C:\test.xls
Fertig.
Im IV- Browser Einbetten aufklappen, RMT auf einbetten 1
und Sichtbar machen.
Danach wird das Excel- Sheet in der Zeichnung mittig angezeigt.
Das Ganze soll jetzt über VBA geschehen...
Der folgende Code fügt die Tabelle ein und stellt Sie sichtbar.
Allerdings wird in der Zeichnung nichts angezeigt...
Kann sich einer von euch erklären warum dem so ist?!?
Code:
Sub test()
Dim odoc As DrawingDocument
Set odoc = ThisApplication.ActiveDocument
Dim oref As ReferencedOLEFileDescriptor
Set oref = odoc.ReferencedOLEFileDescriptors.Add("C:\test.xls", kOLEDocumentEmbeddingObject)oref.Visible = True
odoc.Update
oref.BrowserVisible = True
odoc.ActiveSheet.Update
End Sub
Was noch auffällt:
Manuell eingefügt wird die Begrenzung der xls- Datei mit gelben Punkten angezeigt.
Über VBA eingefügt erscheint nur ein gelber Punkt am unteren linkem Blattrand...Danke für eure Hilfe!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP