OpenOffice.info

sub Main
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 = "$A$1:$H$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:HideColumn", "", 0, Array())
end sub

Du mußt beim Aufzeichnen jeweils eine Zelle in den auzublendenden Spalten markieren, das Markieren der Spaltenköpfe wird nicht aufgezeichnet. Hier ein Beispiel für Spalte A - H.

[code]sub Main
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 = "$A$1:$H$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:HideColumn", "", 0, Array())
end sub[/code]


Zum Wiedereinblenden mußt Du nur die Zeile:
[color=green]dispatcher.executeDispatch(document, ".uno:HideColumn", "", 0, Array())[/color]
in:
[color=green]dispatcher.executeDispatch(document, ".uno:ShowColumn", "", 0, Array())[/color]
ändern.

Gruß
Stephan

Hallo Stephan!

Das mit dem Makrorecorder funktioniert nicht. Der zeichnet zwar auf, das Spalten oder Zeilen ausgeblendet wurden, aber welche (Spaltenname und Zeilenzahl) vergisst der Recorder.

Grüße,
Mumpel

Du kannst das mit dem Makrorekorder aufzeichnen oder gibt es irgendwelche speziellen Anforderungen?


Gruß
Stephan

Hallo!

Wie kann ich Zeilen und Spalten per Makro ein- bzw. ausblenden!

Als Beispiel: Es soll immer nur ein Thema angezeigt werden.

Das 1. Thema steht in den Spalten A-H, das 2. Thema in den Spalten I-M.

Grüße,
Mumpel