Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Userform auf Bildschirmgröße

Betrifft: Userform auf Bildschirmgröße von: Frank
Geschrieben am: 19.09.2004 22:07:29

Guten Abend Leute,

ich möchte ein userform auf Bildschirmgröße haben unabhängig von der Auflösung.
Mit Application.Width und Height geht das nur, wenn Excel auch maximiert dar-
gestellt wird, das ist aber nicht immer sichergestellt.
Wäre toll, wenn es da eine Möglichkeit gäbe.

Danke schon mal!
Gruß Frank

  


Betrifft: AW: Userform auf Bildschirmgröße von: Thomas Risi
Geschrieben am: 19.09.2004 22:45:57

Hallo Frank,

versuch mal meine CUserForm-Klasse. Du findest sie auf meiner Webseite im Beispiel 'UserForm mit Min/Max-Button'.

Gruß
Thomas

Risi Thomas Softwareentwicklung




  


Betrifft: AW: Userform auf Bildschirmgröße von: Ramses
Geschrieben am: 19.09.2004 22:47:12

Hallo

damit kriegst du deine Eckwerte

Option Explicit

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 GetHRes()
  Dim lDc As Long
  Dim lVSize As Long
  lDc = GetDC(0&)
  GetHRes = GetDeviceCaps(lDc, HORZRES)
End Function


Function GetVRes()
  Dim lDc As Long
  Dim lVSize As Long
  lDc = GetDC(0&)
  GetVRes = GetDeviceCaps(lDc, VERTRES)
End Function


Sub Test()
MsgBox "Ihre Bildschirmauflösung ist: " & GetHRes & " x " & GetVRes & " Pixel"
End Sub


Gruss Rainer


  


Betrifft: Danke euch oT von: Frank
Geschrieben am: 19.09.2004 22:53:04

oT


 

Beiträge aus den Excel-Beispielen zum Thema "Userform auf Bildschirmgröße"