BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Makro mit ColumnWidth funktioniert nicht mehr

Installation / Betrieb / Probleme unter Windows
Antworten
herbi1234
Beiträge: 3
Registriert: Mi 3. Aug 2016, 09:32

Makro mit ColumnWidth funktioniert nicht mehr

Beitrag von herbi1234 » Do 3. Aug 2017, 09:49

Die Spaltenbreite wird nicht mehr gesetzt, stattdessen erscheint ein Popup und ich werde nach der Eingabe gefragt.
Ich habe jetzt die neueste version 5.4.0.3 auf meinem Rechner mit Windows 10 installiert.
Hat jemand eine Idee ob ich etwas ändern muß?
bei Version 5.2 wurde das Makro korrekt ausgeführt.

sub pbeinlesen2
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem -------------------------------spaltenbreite-
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())

dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ColumnWidth"
args3(0).Value = 2000
dispatcher.executeDispatch(document, ".uno:ColumnWidth", "", 0, args3())

dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$B$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())

dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ColumnWidth"
args5(0).Value = 2000
dispatcher.executeDispatch(document, ".uno:ColumnWidth", "", 0, args5())

dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "ToPoint"
args6(0).Value = "$C$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args6())

dim args7(0) as new com.sun.star.beans.PropertyValue
args7(0).Name = "ColumnWidth"
args7(0).Value = 2000
dispatcher.executeDispatch(document, ".uno:ColumnWidth", "", 0, args7())

dim args8(0) as new com.sun.star.beans.PropertyValue
args8(0).Name = "ToPoint"
args8(0).Value = "$D$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args8())

dim args9(0) as new com.sun.star.beans.PropertyValue
args9(0).Name = "ColumnWidth"
args9(0).Value = 3000
dispatcher.executeDispatch(document, ".uno:ColumnWidth", "", 0, args9())

dim args10(0) as new com.sun.star.beans.PropertyValue
args10(0).Name = "ToPoint"
args10(0).Value = "$H$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args10())

dim args11(0) as new com.sun.star.beans.PropertyValue
args11(0).Name = "ColumnWidth"
args11(0).Value = 2000
dispatcher.executeDispatch(document, ".uno:ColumnWidth", "", 0, args11())

dim args13(0) as new com.sun.star.beans.PropertyValue
args13(0).Name = "ToPoint"
args13(0).Value = "$F$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args13())

dim args14(0) as new com.sun.star.beans.PropertyValue
args14(0).Name = "ColumnWidth"
args14(0).Value = 2000
dispatcher.executeDispatch(document, ".uno:ColumnWidth", "", 0, args14())

dim args12(0) as new com.sun.star.beans.PropertyValue
args12(0).Name = "ToPoint"
args12(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args12())

end sub

nikki
Beiträge: 1026
Registriert: Sa 18. Mär 2017, 22:25
Kontaktdaten:

Re: Makro mit ColumnWidth funktioniert nicht mehr

Beitrag von nikki » Do 3. Aug 2017, 11:37

  • Du bist hier im falschen Forumsbereich, richtig wäre: LibreOffice Programmierung
  • Ich würde mich nicht gleich auf die erste Programmversion eines neuen Programmzweigs, der am Anfang der Entwicklung steht, stürzen. Dazu gehört auch, zumindest vorher die Versionshinweise von TDF zu lesen
Gruß

---------------------------------------------------
Win.10 Prof. 64-bit, LO 6.3.4 (x64), LO 6.2.6 Portable, AOO 4.1.7

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten