[gelöst] Fenstergröße per Basic bestimmen

[clag]

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

[F3K Total]

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

Code: Alles auswählen

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

... und ein kleines Beispiel
Gruß R

[clag]

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 )

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

[F3K Total]

erhardalstnnzer.gif (12.12 KiB) 965 mal betrachtet

[clag]

haha, ja genau der

[balu]

Hallo Leute,

ich hoffe der Herr ist dir bekannt

Mir is er.

Hinter eines Baumes Rinde
wohnt die Made mit dem Kinde.

Gruß
balu