UserForm Grösse?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
hier mal einen allgemeinen Code um die Bildschirmeinstellung auszulesen
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Public Enum ScreenArgs
    HORIZONTAL
    VERTIKAL
End Enum

Public Function ScreenResolution(HV As ScreenArgs) As Long
    If HV = 0 Or HV = 1 Then ScreenResolution = GetSystemMetrics(HV)
End Function

Sub Set_Zoom()
    'Die Werte hinter .Zoom den eigenen Bedürfnissen anpassen
    Select Case ScreenResolution(0)
        Case 1600
            ActiveWindow.Zoom = 75
        Case 1280
            ActiveWindow.Zoom = 75
        Case 1024
            ActiveWindow.Zoom = 75
        Case 800
            ActiveWindow.Zoom = 75
        Case 640
            ActiveWindow.Zoom = 75
    End Select
End Sub

Sub Choose_Table_depend_from_Screen()
    If ScreenResolution(0) = 1024 Then
        Worksheets("1024").Select
    Else
        Worksheets("800").Select
    End If
End Sub
Sub Zoom_It()
    'Passt den Zoom an die aktuelle Auswahl an
    Range("A:b").Select
    ActiveWindow.Zoom = True
End Sub

Sub print_Screeen()
    Debug.Print ScreenResolution(0)
    Debug.Print ScreenResolution(1)
End Sub

Ansonsten kannst du das mal ansehen
http://66.249.93.104/search?q=cache:2wgKUSSa3iAJ:forums.wugnet.com/office/-Placing-ftopict292611.html+Screenresolution+Pixel+EXCEL+VBA&hl=de
Dort steht eine exakte Lösung zu deinem Problem
Gruss Rainer

Private Sub CommandButton1_Click() Application.WindowState = xlMaximized With Me .Top = Application.Top .Left = Application.Left .Height = Application.Height .Width = Application.Width End With End Sub

Private Sub UserForm_Activate() Select Case Application.WindowState Case xlMaximized Me.Height = Application.Height - 5 'Korrrektur für Taskleiste = 5 Me.Width = Application.Width - 5 'Korrektur schmäler = 5 Me.Left = 0 Me.Top = 0 End Select End Sub

Private Sub UserForm_Activate() Dim LoWidth As Long ' Größe der Userform laut Programm Dim LoHeight As Long ' der Userform laut Programm Dim UserWidth As Long Dim UserHeight As Long LoWidth = 1280 LoHeight = 1024 UserWidth = 768 UserHeight = 570.6 MsgBox "UserForm " & Me.Width MsgBox "UserForm " & Me.Height MsgBox "Width Erstellungsgrösse " & LoWidth MsgBox "Height Erstellungsgrösse " & LoHeight Dim SystemW As Long Dim SystemH As Long SystemW = GetSystemMetrics(SM_CXSCREEN) SystemH = GetSystemMetrics(SM_CYSCREEN) MsgBox "SWidth " & SystemW MsgBox "SHeight " & SystemH Select Case Application.WindowState Case xlMaximized Me.Height = Application.Height - 5 Me.Width = Application.Width - 6 Me.Left = 0 Me.Top = 0 Me.Zoom = GetSystemMetrics(SM_CXSCREEN) / (LoHeight) * 100 End Select End Sub

Private Sub UserForm_Initialize() 'Bildschirmanpassung der UserForm Dim MyControl As Object For Each MyControl In Controls MyControl.Top = MyControl.Top * Application.Height / UserForm1.Height MyControl.Left = MyControl.Left * Application.Width / UserForm1.Width MyControl.Width = MyControl.Width * Application.Width / UserForm1.Width MyControl.Height = MyControl.Height * Application.Height / UserForm1.Height Next With UserForm1 .Height = Application.Height - 3 .Width = Application.Width - 4 Me.Left = 0 Me.Top = 0 End With End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UserForm Grösse?

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread