OpenOffice.info

Verfasst: **Mi, 13.09.2006 22:54**

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

Verfasst: **Do, 14.09.2006 00:54**

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

Verfasst: **Di, 03.10.2006 16:11**

Vielen Dank

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

Gruss 1.ray

Verfasst: **Fr, 08.07.2011 20:49**

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

Karo

OpenOffice.info

Calc: Spalten ausblenden

Calc: Spalten ausblenden

Klappt prima

Re: Makro um Spalten auszublenden