Calc: Spalten ausblenden

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Calc: Spalten ausblenden

Re: Makro um Spalten auszublenden

von Karolus » 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

Klappt prima

von 1.ray » Di, 03.10.2006 16:11

Vielen Dank

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

Gruss 1.ray

von Karolus » 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

Calc: Spalten ausblenden

von 1.ray » 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

Nach oben