Re: Zugriff zwischen OLE Objekte
Verfasst: Fr, 12.01.2018 14:59
Jetzt versuche ich die Geschichte als Funktion zu kapseln und dem entsprechenden Feld zuzuordnen, für alle Fälle hab ich eine einfache HALLOWELT() Funktion erstellt.
Dabei habe ich mich ans Handbuch gehalten, aber meine Funktionen kennt das aktuelle Projekt nicht. Die Funktionen liegen unter:
Extras->Makros->Makros verwalten->OpenOffice Basics->test-mitSchaltfläche.odt->Standard->Module1
Code: Alles auswählen
REM ***** BASIC *****
Sub Main
With ThisComponent.getEmbeddedObjects
.getByName("Objekt4").getEmbeddedObject.Sheets().getByName("Tabelle1").getCellRangeByName("A1").Value = _
.getByName("Objekt1").getEmbeddedObject.Sheets().getByName("Tabelle1").getCellRangeByName("B3").Value
.getByName("Objekt4").getEmbeddedObject.Sheets().getByName("Tabelle1").getCellRangeByName("A2").Value = _
.getByName("Objekt2").getEmbeddedObject.Sheets().getByName("Tabelle1").getCellRangeByName("A3").Value
End With
End Sub
function HALLOWELT()
HALLOWELT="Hallo Welt"
end function
function MYVALUE()
MYVALUE=This.Component.getEmbeddedObjects().getByName("Objekt1").getEmbeddedObject.Sheets().getByName("Tabelle1").getCellRangeByName("B3").Value
end function
Extras->Makros->Makros verwalten->OpenOffice Basics->test-mitSchaltfläche.odt->Standard->Module1