Hallo Liste!
Vor einiger Zeit hatte ich mal angefragt bei einem Problem mit Zellen
verbinden. Peter Eberlein hatte mir einen Hinweis geschickt. Leider hat
das nicht geholfen.
Ich habe danach das System neu installiert und auch OpenOffice 2.0 neu
eingespielt. Das Resultat war wieder negativ. Das Sub zeigte keine
Wirkung. In der Dokumentation habe ich auch nichts gefunden.
Also hier noch mal mein Problem:
Ich möchte per Makro zwei Zellen Verbinden.
Das klappt ohne Probleme (Siehe: Sub cellbundel).
Aber die Meldung von OpenOffice funkt immer dazwischen.
Text: OpenOffice.org Calc
Soll der Inhalt der verdeckten Zelle in die erste Zelle verschoben werden?
Button: Ja Nein Abbrechen
Es macht furchtbar viel Laune 400 mal "Nein" zu klicken. Da lohnt sich
ein Makro nicht.
Also, gibt es eine Möglichkeit die Meldebox mit "Ja" oder "Nein" zu
füttern oder kann man die Meldung für das Dokument abschalten.
Schon mal Danke für die Hilfe.
ein kleiner Teil des Makros.
' bundle cells
strField1 = ExampleGetValue(intColumn(2), intRunner1, strTable )
'get
cell data
strField2 = ExampleGetValue(intColumn(4), intRunner1, strTable )
'get data
strPos1 = strColumn(6) + intRunner1
strPos2 = strColumn(7) + intRunner1 'get position of cell
if strField1 <> "" then
if strField2 = "" OR strField2 = 0 then
'cell is not empty
call cellbundel( strPos1, strPos2)
call merge() 'set message to no overdrive cells?
end if
end if
'von Peter
sub merge()
ThisComponent.CurrentController.Selection.merge(true)
End sub
sub cellbundel ( pos1 as String, pos2 as String )
rem
----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem
----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem
----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = pos1 + ":" + pos2
' "$L$11:$M$11"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem
----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:ToggleMergeCells", "", 0,
Array())
end sub
--
Gruß vom Niederrhein
Achim Temme
Next LugX Treffen :
04.11.2006
02.12.2006
06.01.2007
03.02.2007
03.03.2007
07.04.2007
05.05.2007
02.06.2007
07.07.2007
04.08.2007
01.09.2007
06.10.2007
03.11.2007
01.12.2007
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
