OpenOffice.info

[quote="Snoopy"]...ein Makro welches bei Calc und Writer funktioniert will mit Impress einfach nicht funktionieren...[/quote]

Hi Leutz,

Ansicht auf Fensterbreite funktioniert bei OpenOfficeImpress wenn "simpress" in dem Makro [u]nicht[/u] 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.

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

[quote="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?[/quote]

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]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[/code]

*edit* "Dim oDocument as string" entfernt, ist irgendwie da reingerutscht :( .

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?