Seite 1 von 1
Ansicht Seitenbreite als Standard
Verfasst: So, 07.06.2009 11:39
von MrSpock
Hallo,
wenn ich an meiner Präsentation arbeite, stelle ich immer wieder die Ansicht "Seitenbreite" ein. Wie erreiche ich, dass beim nächsten Öffnen die Präsentation automatisch in dieser Ansicht bzw. in diesem Zommfaktor dargestellt wird?
Re: Ansicht Seitenbreite als Standard
Verfasst: Do, 11.06.2009 17:39
von Snoopy
MrSpock hat geschrieben:Hallo,
wenn ich an meiner Präsentation arbeite, stelle ich immer wieder die Ansicht "Seitenbreite" ein. Wie erreiche ich, dass beim nächsten Öffnen die Präsentation automatisch in dieser Ansicht bzw. in diesem Zommfaktor dargestellt wird?
Hi MrSpock,
ein Makro welches bei Calc und Writer funktioniert will mit Impress einfach nicht funktionieren, vielleicht weiß ja Jemand wo der Unterschied liegt
.
Hier das Makro:
Code: Alles auswählen
Sub AnsichtFensterbreite
GlobalScope.BasicLibraries.LoadLibrary("Tools")
Dim sTest as string
oDocument = StarDesktop.ActiveFrame.Controller.Model
sTest = GetDocumentType(oDocument)
If sTest = "simpress" or sText = "swriter" then
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Zoom.Value"
args1(0).Value = 0
args1(1).Name = "Zoom.ValueSet"
args1(1).Value = 28703
args1(2).Name = "Zoom.Type"
args1(2).Value = 3
dispatcher.executeDispatch(document, ".uno:Zoom", "", 0, args1())
End If
End Sub
*edit* "Dim oDocument as string" entfernt, ist irgendwie da reingerutscht
.
Re: Ansicht Seitenbreite als Standard
Verfasst: Di, 16.06.2009 11:25
von Snoopy
Snoopy hat geschrieben:...ein Makro welches bei Calc und Writer funktioniert will mit Impress einfach nicht funktionieren...
Hi Leutz,
Ansicht auf Fensterbreite funktioniert bei OpenOfficeImpress wenn "simpress" in dem Makro
nicht abgefragt wird
,
If sTest = "simpress" or sTest = "swriter" or sTest = "scalc" then <--- funktioniert nicht
If sTest = "simpress" or sTest = "swriter" then <--- funktioniert nicht
If sTest = "simpress" or sTest = "scalc" then <--- funktioniert nicht
If sTest = "simpress" then <--- funktioniert nicht
If sTest = "swriter" or sTest = "scalc" then <--- funktioniert
If sTest = "swriter" then <--- funktioniert
If sTest = "scalc" then <--- funktioniert
dabei wird die If Schleife übersprungen und es passiert eigentlich nix???
Ohne Makro funktioniert es auch nicht, O.K. das war ja der Grund warum MrSpock gefragt hatte.