von F3K Total » Mo, 28.10.2013 19:43
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
- Dateianhänge
-
- Fenstergroesse.odt
- (11 KiB) 155-mal heruntergeladen
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