OpenOffice.info

Heureka! 😀 Ich habe jetzt mal sämtliche Libreofficedateien, die noch offen waren, geschlossen und nur die Datei mit dem Makro geöffnet: Es rennt jetzt! Die Ursache war, dass ich irgendwann mal das XrayTool mal zum Test geöffnet hatte und das immer noch geöffnet war. Starte dich das wieder, tritt auc...

Version: 7.4.1.2 (x64) / LibreOffice Community
Build ID: 3c58a8f3a960df8bc8fd77b461821e42c061c5f0
CPU threads: 8; OS: Windows 10.0 Build 19045; UI render: Skia/Raster; VCL: win
Locale: de-DE (de_DE); UI: de-DE
Calc: CL

Hallo! Irgendwie verstehe ich jetzt nicht, was du meinst. ich habe mit deiner Testtdatei jetzt zwei Durchläufe gemacht, gestartet wird natürlich immer Sub MAIN: der hier funktioniert: REM ***** BASIC ***** Sub Main odoc=thiscomponent otab=odoc.Sheets(0) oCell = otab.getCellRangeByPosition(0, 0, 3, 5...

Ja, danke1 Und wenn ich den selbven Aufruf nach oben in das Hauptprogramm verlege läuft es. Sub Main odoc=thiscomponent otab=odoc.Sheets(0) oCell = otab.getCellRangeByPosition(0, 0, 3, 50) 'XXXXX End Sub Sub Formatieren (oSheet) Dim oCell As Object oCell = oSheet.getCellRangeByPosition(0, 0, 3, 50) ...

Tell me more !

Außerdem tritt der Fehler in folgender Zeile auf: Exakt bder selbe Code funktioniert innerhalb des Hauptprogramms einwadndfrei!

Thx
peter

Hi! Danke für die Tipps! Der Aufruf ist aber ok: ... REM oSheetx.Rows(N).Height="1300" REM Next N BildEinfuegen(oSheetx) Formatieren(oSheetx) oDoc2 = StarDesktop.loadComponentFromUrl("private:factory/scalc", "_blank", 0, Args()) oDoc2.StoreAsURL("file:///I:/Bereich...

Hallo! Den folgenden Code eines umfangreicheren Makros in LibreOffice habe ich zur Vereinfachung in eine Subroutine gepackt: Sub Formatieren (oSheet) Dim oCell As Object oCell = oSheet.getCellRangeByPosition(0, 0, 3, 50) 'XXXXX oCell.CharFontName="Cambria" oCell.CharHeight="15" o...