Startseite festlegen. Wie geht das?

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: Startseite festlegen. Wie geht das?

Re: Startseite festlegen. Wie geht das?

von turtle47 » Fr, 25.01.2008 23:31

Nabend Kaiiischiii,

folgendes Makro bindest Du unter "Meine Makros" ein und verknüpfst es mit einem Symbol in einer Symbolleiste.

Code: Alles auswählen

Sub NotizenOeffnen
Dim Dokument as Object
Dim sUrl as String
Dim Dummy()
sUrl = ConvertToUrl ("C:\Notizen.ods") ' Achtung: Pfad anpassen!
'Prüfungsroutine
  gefunden=false
  oComponents = StarDesktop.getComponents()
  oDocs = oComponents.createEnumeration()
  Do While oDocs.hasMoreElements()
    oDoc = oDocs.nextElement()
    datei=odoc.geturl()
     if datei=ConvertToUrl("C:\Notizrn.ods") then ' Achtung: Pfad anpassen!
         Dokument=odoc
         gefunden=true
         msgbox "Die Datei ist bereits geöffnet!" ,64, "Datei öffnen"
     end if
  Loop
' Wenn nicht offen, dann öffnen
if gefunden=false then Dokument = StarDesktop.loadComponentFromURL   ( sUrl , "_blank", 0, Dummy() )
End Sub
Es ruft Deine Tabelle Notizen auf. Den Pfad musst Du noch anpassen.

Das erste Makro von mir musst du in dem Dokument "Notizen" einbinden und dort wie schon beschrieben mit dem öffnen des Dokuments verknüpfen!

Und jetzt Guts Nächtle.

Jürgen

Re: Startseite festlegen. Wie geht das?

von turtle47 » Fr, 25.01.2008 21:51

Hi Kayyyschiii,

das geht nur mit folgendem Makro, welches Du im Dokument hinterlegst und dann unter
Menue > Ansicht > Symbolleisten > Anpassen > Reiter Ereignisse > Dokument öffnen verknüpfst:

Code: Alles auswählen

Sub ImmerGleichesTabellenblatt
	myDoc = ThisComponent
	myView = myDoc.CurrentController
	mySheet = myDoc.Sheets.getByName("Tabelle1")
	myView.setActiveSheet(mySheet)
End Sub

Informationen zum Installieren und einbinden findest du hier:
http://www.ooowiki.de/MakrosInstallierenKapitel Quellcode..
http://www.ooowiki.de/MakrosMitEinemKlick
http://www.ooowiki.de/SchaltFl%C3%A4che

Viel Erfolg.

Jürgen

Edit:

Code: Alles auswählen

"Tabelle1"
kannst Du durch Deine gewünschtes Tabellenblatt ersetzen. :lol:

Nach oben