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 ...

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 ...

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 ...

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:/Bereich2.ods", noArgs())
...

VG ...

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"
oSheet.Columns(0 ...