Oszlop törlése OpenOffice Calcban makróval

Fórumok

Arra lenne szükségem, hogy egy táblázatban oszlopokat makróval törölni tudjak. Makrórögzítéssel próbálkoztam, de ez úgy tűnik, nem működik. Tudna esetleg valaki nekem működő kódot adni? OpenOffice.org 2.3.0 Fsf.hu build 1, Windows XP alatt (a munkahelyen ez van ...)

Hozzászólások

Nekem megy.

Futtatás előtt ki kell, hogy legyen jelölve az oszlop. Itt a kód:


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

Sub Main

End Sub


sub Delete_column
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:DeleteColumns", "", 0, Array())


end sub

Csaba

Kösz szépen a kódot, de mégsem volt rá szükség, a problémát az a megjegyzésed oldotta meg, hogy előtte az oszlopot ki kell jelölni. Én fent kijelöltem a teljes oszlopokat, (nem tudom hogy hívják azt a részt, ahol az oszlopok nevei vannak), de ez a makrórögzítésnél nem működik.
Végülis ki kellett jelölnöm egy cellát, és azután a makró azt a teljes oszlopot törölte.
Az oszlopszélességet is csak úgy lehet módosítani, hogy ki kell jelölni egy cellát az oszlopon belül, és annak kell a szélességét módosítani.
Azért volt furcsa, mert az Excel nem így működik, ott ki lehet a makró számára egy kattintással jelölni egy oszlopot.

OpenOffice makróhoz, segítséget kérek!

Van egy a.ods calc táblázatom ahonnan az 1-es munkalap A2 cellájának tartalmát szeretném a b.ods 2-es munkalap B3-as cellájába átíratni.
A hívatkozás nem jó, mert nekem más adatok is kellenek, csak az egyszerűség kedvéért írtam így a feladatot.