Beste lezers,
Al jaren gebruik ik een LibreOffice Calc blad waarin diverse macro's en
grafieken zijn opgenomen. De macro's zijn geschreven in LibreOffice Basic.
Met het installeren van Linux-ubuntu 13.10 is daarin tevens de nieuwe
LibreOffice versie 4.1.2.3 verschenen met het gevolg dat mijn macro's,
voor zover ik het tot nu toe heb ervaren, vastlopen op één onderdeel
namelijk een Datefield. (datum)
Zowel met Ubuntu als met Windows werken de macro's moeiteloos met de
voorgaande LibreOffice versies en ook met OpenOffice maar met de
nieuwste versie LibreOffice 4.1.2.3. loopt het vast zowel onder Windows
als met Ubuntu.
Het macrodeel waar het om gaat heb ik apart genomen en hieronder
weergegeven.
----------------------------------
public datum as date
sub main
DialogLibraries.LoadLibrary( "Standard" )
oDialog1 = CreateUnoDialog(DialogLibraries.Standard.DialogA)
oDateField = oDialog1.GetControl("DateField1")
oDateField.date=clng(CDateToIso(date))'dit zet de huidige datum in het
DateField
oDialog1.Execute()
datum=oDateField.text
if datum="00:00:00" then '(datum = 00:00:00 als DateField niet is gewijzigd)
datum=date
endif
end sub
----------------------------------
Na openen van het Calc blad kan de macro worden uitgevoerd met:
1.
Menu / Extra / Macro's / Macro's beheren / LibreOffice Basic
2.
In het venster "LibreOffice Basic-macro's" klik in het
linkerschermdeel op het driehoekje links van "huidige datum in
datefield.ods"
3.
klik op het driehoekje links van Standard"
4.
klik op "Modul1"
5.
klik aan de rechterkant op de knop "Uitvoeren"
Door deze macro verschijnt een dialoogblad, zoals hieronder weergegeven,
met daarop het Datefield waarin dan de huidige datum verschijnt. Met
klikken op de omhoog/omlaag pijltjes kan de datum ook worden verzet naar
eerder of later. De gekozen datum wordt verder in het programma gebruikt.
Dialoogblad "DialogA"
Weet iemand of dit kan worden opgelost?
Met vriendelijke groet,
Willem
--
Unsubscribe instructions: E-mail to [email protected]
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/nl/users/
All messages sent to this list will be publicly archived and cannot be deleted
