Hi,
ich möchte den Inhalt einer Zelle als Notiz für eine andere Zelle
anzeigen lassen. Das ganze soll per Makro aktualisiert werden.
Ich hab mal ein Makro aufgezeichnet (s. u.), welches das machen soll;
das funktioniert so weit, daß ich den betreffenden Inhalt in den
Zwischenspeicher bekomme. Aber wie bekomme ich den Inhalt des
Zwischenspeichers in die Notiz?
Erschwerend kommt noch hinzu, daß die Quellzelle eine Formel beinhaltet,
und ich also 'Einfügen als Text' machen muss.
Das Makro (bzw. die relevante Stelle) sieht bisher so aus:
| rem --- gehe zu Quelle ---
| dim args1(0) as new com.sun.star.beans.PropertyValue
| args1(0).Name = "ToPoint"
| args1(0).Value = "$J$9"
|
| dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
|
| rem --- kopiere Quelle ---
| dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
|
| rem --- gehe zu Ziel (Zelle wurde vorher schon selektiert) ---
| dim args3(0) as new com.sun.star.beans.PropertyValue
| args3(0).Name = "ToPoint"
| args3(0).Value = "$L$12"
|
| dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())
|
| rem --- füge ein ---
| dispatcher.executeDispatch(document, ".uno:DrawEditNote", "", 0, Array())
|
| rem dim args5(5) as new com.sun.star.beans.PropertyValue
| rem args5(0).Name = "Flags"
| rem args5(0).Value = "SVD"
| rem args5(1).Name = "FormulaCommand"
| rem args5(1).Value = 0
| rem args5(2).Name = "SkipEmptyCells"
| rem args5(2).Value = false
| rem args5(3).Name = "Transpose"
| rem args5(3).Value = false
| rem args5(4).Name = "AsLink"
| rem args5(4).Value = false
| rem args5(5).Name = "MoveMode"
| rem args5(5).Value = 4
| rem dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0,
args5())
| rem --- funktioniert nicht ---
|
| rem dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
| rem --- funktioniert nicht ---
|
| dispatcher.executeDispatch(document, ".uno:DrawEditNote", "", 0, Array())
Wolfgang
--
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
