OpenOffice.info

Hallo Leute,

[quote]
ich hoffe der Herr ist dir bekannt
[/quote]
Mir is er.

[quote]
[url=http://www.youtube.com/watch?v=iQkp6FG07gg]Hinter eines Baumes Rinde
wohnt die Made mit dem Kinde.[/url]
[/quote]
:lol:



Gruß
balu

haha, ja genau der :D :lol:

[attachment=0]erhardalstnnzer.gif[/attachment]

Hallo F3K Total,

Frei nach Heinz Erhard "wir bilden eine Satz mit G" drück ich es mal so aus "ganz gut?, geradezu genial gelöst"
(ich hoffe der Herr ist dir bekannt ) :D

Also im ernst, der Code ist genau was ich erhofft hatte, spitzen Lösung, und funktioniert hier auch ganz prima
Allerbesten Dank für deine Mühe und den Code.

Schönen Abend noch.

edit:
noch ein G dazu getan :)

Sub Setze_Fenster_in_cm
    oDisplayAccess = CreateUnoService("com.sun.star.awt.DisplayAccess")
    oDisplay = oDisplayAccess.getByIndex(0)
    aScreen = oDisplay.WorkArea
    nWidht = aScreen.Width
    nHeight = aScreen.Height
    ScreenRes = nWidht/TWIPSPERPIXELX 'DPI
    factor = ScreenRes/2.54
    X = 5 ' 5 cm
    y = 5
    h = 10
    w = 20
    x = x * factor
    y = y * factor
    h = h * factor
    w = w * factor
    S_Set_WindowPosSize(x,y,w,h)    
end sub

Sub Setze_Fenster_in_Prozent
    oDisplayAccess = CreateUnoService("com.sun.star.awt.DisplayAccess")
    oDisplay = oDisplayAccess.getByIndex(0)
    aScreen = oDisplay.WorkArea
    nWidht = aScreen.Width
    nHeight = aScreen.Height
    factorX = nWidht / 100
    factorY = nHeight / 100
    X = 25 * factorX '25 Prozent
    y = 25 * factorY
    w = 50 * factorX
    h = 50 * factorY
    S_Set_WindowPosSize(x,y,w,h)    
end sub

Sub S_Set_WindowPosSize(x,y,w,h) 
    oContainerWindow = thiscomponent.currentcontroller.frame.ContainerWindow
    oposSize = oContainerWindow.PosSize
    oContainerWindow.setPosSize(x,y,w,h,15)
End Sub

Hi Clag,
ich habe da mal was zusammengesucht, klappt ganz gut:

[code]
Sub Setze_Fenster_in_cm
oDisplayAccess = CreateUnoService("com.sun.star.awt.DisplayAccess")
oDisplay = oDisplayAccess.getByIndex(0)
aScreen = oDisplay.WorkArea
nWidht = aScreen.Width
nHeight = aScreen.Height
ScreenRes = nWidht/TWIPSPERPIXELX 'DPI
factor = ScreenRes/2.54
X = 5 ' 5 cm
y = 5
h = 10
w = 20
x = x * factor
y = y * factor
h = h * factor
w = w * factor
S_Set_WindowPosSize(x,y,w,h)
end sub

Sub Setze_Fenster_in_Prozent
oDisplayAccess = CreateUnoService("com.sun.star.awt.DisplayAccess")
oDisplay = oDisplayAccess.getByIndex(0)
aScreen = oDisplay.WorkArea
nWidht = aScreen.Width
nHeight = aScreen.Height
factorX = nWidht / 100
factorY = nHeight / 100
X = 25 * factorX '25 Prozent
y = 25 * factorY
w = 50 * factorX
h = 50 * factorY
S_Set_WindowPosSize(x,y,w,h)
end sub

Sub S_Set_WindowPosSize(x,y,w,h)
oContainerWindow = thiscomponent.currentcontroller.frame.ContainerWindow
oposSize = oContainerWindow.PosSize
oContainerWindow.setPosSize(x,y,w,h,15)
End Sub[/code]

... und ein kleines Beispiel
Gruß R

Hallo Kenner und Könner,

die Überschrift sagt schon fast alles.
Ich möchte per Makro die OO Fenstergröße des aktiven OO Writer Fensters auf eine bestimte Position und Größe setzen,
in % oder in Pixel Angabe, ist das möglich und wenn ja wie?

schonmal Danke fürs lesen