Calc: Spalten ausblenden

[1.ray]

Hallo,

Ich habe ein Makro aufgezeichnet um einzelne Spalten aus einer Tabelle mit einem klick ausblenden zu können.
Leider "merkt sich das Makro nicht, welche Spalten.
Wie muss ich das makro ändern?
Es schaut aus wie folgt:

Code: Alles auswählen

REM  *****  BASIC  *****

Sub Main

End Sub


sub Ausblenden
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:HideColumn", "", 0, Array())


end sub

Moderation,4: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst; CODE tags gesetzt

[Karolus]

Hallo

Wenn du wärend der Makroaufzeichnung nach Selektion der Spalte den Cursor noch mal ins Addressfenster setzt und mit <enter> bestätigst, erhälst du folgenden Code :

Code: Alles auswählen

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 = "C1:C65536"

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

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

Gruß Karo



Moderation,4: CODE tags gesetzt

[1.ray]

Vielen Dank

Dein Tipp funktioniert und ich habe ihn auch auf die Spaltenoptimierung angewandt.

Gruss 1.ray

[Karolus]

Hallo
Nein, das Adressfenster ist links direkt über dem Kopf von Spalte A - Dort steht auch die Adresse des aktuell ausgewählten Bereichs.

Karo