Ansicht Seitenbreite als Standard

[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?

[Snoopy]

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 .

[Snoopy]

...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.