centreret vindue

Jeg kender ikke en metode, der cenrerer vinduet, men du kan placere venstre kant med

Application.Left = 600

og øverste kant med

Application.Left = 600


Så kan du pørve dig frem til det passer.

Desværre dur det ikke, fordi programmet skal køre på flere maskiner med skærmopløsninger jeg ikke kender.

Så hjar desværre ikke nogen gode idéer - bortset fra at du evt med et api kan program kan teste skærmopløsningen og så sætte antal pixels i forhold til det.

prøv at køre denne makro (xl2000 -> )
Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _
    ByVal nIndex As Long) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _
    ByVal hdc As Long) As Long

Const HORZRES = 8
Const VERTRES = 10

Function ScreenResolution()
  Dim lRval As Long
  Dim lDc As Long
  Dim lHSize As Long
  Dim lVSize As Long
  lDc = GetDC(0&)
  lHSize = GetDeviceCaps(lDc, HORZRES)
  lVSize = GetDeviceCaps(lDc, VERTRES)
  lRval = ReleaseDC(0, lDc)
  ScreenResolution = lHSize & "x" & lVSize
End Function

Sub test()

Dim lExcelVandret As Long
Dim lExcelLodret As Long
Dim vScreenVandret
Dim vScreenLodret
Dim temp
temp = Split(ScreenResolution(), "x")
lExcelVandret = Application.Width / 2
lExcelLodret = Application.Height / 2
vScreenVandret = (CLng(temp(0)) * 0.75) / 2
vScreenLodret = (CLng(temp(1)) * 0.75) / 2
Application.Left = vScreenVandret - lExcelVandret
Application.Top = vScreenLodret - lExcelLodret

End Sub

tror din gamle xl95 kan klare denne

Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _
                                            ByVal nIndex As Long) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _
                                        ByVal hdc As Long) As Long

Const HORZRES = 8
Const VERTRES = 10

Function ScreenResolution()
Dim lRval                  As Long
Dim lDc                    As Long
Dim lHSize                As Long
Dim lVSize                As Long
  lDc = GetDC(0&)
  lHSize = GetDeviceCaps(lDc, HORZRES)
  lVSize = GetDeviceCaps(lDc, VERTRES)
  lRval = ReleaseDC(0, lDc)
  ScreenResolution = lHSize & "x" & lVSize
End Function

Sub test()

Dim lExcelVandret          As Long
Dim lExcelLodret          As Long
Dim vScreenVandret        As Long
Dim vScreenLodret          As Long
Dim temp
  temp = ScreenResolution()
  lExcelVandret = Application.Width / 2
  lExcelLodret = Application.Height / 2
  vScreenVandret = (CLng(Left(temp, InStr(1, temp, "x") - 1)) * 0.75) / 2
  vScreenLodret = (CLng(Right(temp, Len(temp) - InStr(1, temp, "x"))) * 0.75) / 2
  Application.Left = vScreenVandret - lExcelVandret
  Application.Top = vScreenLodret - lExcelLodret

End Sub

Ja den sidste virker i Excel 95. Men ingen af dem kan jeg få til at virke i Excel 2003. Tusind tak Bak, hvis du ligger et svar, får du dine point

virker fint i xl2003 ved mig. Har du slået makroer til :-)

Jeg har prøvet igen, jag havde ikke lagt koden ind i et nyt modul, nu virker det tak.