Variable von Visio-Datei in eingebundene Excel Tabelle in der Visio-Datei anzeigen lassen

  • Excel

    Variable von Visio-Datei in eingebundene Excel Tabelle in der Visio-Datei anzeigen lassen

    Habe eine Excel Tabelle in eine Visio - Datei eingebunden, nun versuche
    ich den inhalt der Tabelle ("Die erste Zeile der Tabelle") zu ändern,
    indem ich ein Shape von einer Visio Zeichnung darstellen lasse und dort
    den Inhalt eingebe. Der Inhalt des Shapes, soll also in die eingebundene
    Excel-Tabelle eingespeichert werden. Ich habs jetzt soweit, dass ich
    gradmal die eingebundene Excel tabelle in eine Seperate Excel datei
    öffnen kann:

    VB.NET-Quellcode

    1. Public Sub OLEObjects_example()
    2. datum = Application.ActiveWindow.Page.Shapes.ItemFromID(2).Characters
    3. For i = 1 To ActiveDocument.OLEObjects.Count
    4. If Left(ActiveDocument.OLEObjects(i).ProgID, 11) = "Excel.Sheet" Then
    5. ActiveDocument.OLEObjects(i).Object.Activate
    6. ActiveDocument.OLEObjects(i).Object.Application.Visible = True
    7. ActiveDocument.OLEObjects(i).Object.Windows(1).Visible = True
    8. End If
    9. Next i
    10. End Sub




    Ich weiß jedoch nicht, wie ich Die Variable aus der Shape in die Excel
    Spalte einfügen kann/soll. Wurde durch Google leider nicht schlauer.

    Beispiel:
    Nr
    Datum
    1
    14.10.2008
    2




    Shape:12.12.2016


    Datum: 12.12.2016 soll das Datum in der Tabelle (14.10.2008) überschreiben.

    Ich bedanke mich für eure Hilfe

    Mit freundlichen Grüßen

    Jizzy