AW: Userform verschieben
09.06.2007 19:46:45
Daniel
Hallo
mit diesen Makros kann man mit Bordmitteln eine Userform an der aktiven Zelle ausrichten:
bei den festen Parametern muß man noch ein bisschen rumprobieren, das hängt auch davon ab, welche Schriftgrössen und Rahmenbreiten man in Windows eingestellt hat, da hab ich leider keine Anhnung von, wie man das abfragt.
was auch noch nicht ganz passt, sind die Commandbars, je mehr ich einfüge, um so weiter läuft die Userfrom nach unten weg. bei 2en stimmts irgendwie.
Sub UF_Positionieren()
Dim x(6) As Long
Dim y(7) As Long
x(1) = Application.Left
x(2) = ActiveWindow.Left
x(3) = ActiveCell.Left
x(4) = ActiveCell.Width
x(5) = Breite_Befehlszeilen
x(6) = ActiveWindow.VisibleRange.Cells(1, 1).Left
x(0) = x(1) + x(2) + x(3) + x(4) - x(6)
UserForm1.Left = x(0) + 25
y(1) = Application.Top
y(2) = ActiveWindow.Top
y(3) = ActiveCell.Top
y(4) = ActiveCell.Height
y(5) = -10 * Application.DisplayFormulaBar
y(6) = Höhe_Befehlszeilen()
y(7) = ActiveWindow.VisibleRange.Cells(1, 1).Top
y(0) = y(1) + y(2) + y(3) + y(4) + y(5) + y(6) - y(7)
UserForm1.Top = y(0) + 40
End Sub
Function Höhe_Befehlszeilen() As Long
Dim i As Long
Dim CBar As CommandBar
For Each CBar In Application.CommandBars
If CBar.Visible And CBar.Position = msoBarTop Then
Höhe_Befehlszeilen = WorksheetFunction.Max(Höhe_Befehlszeilen, CBar.Top + CBar.Height)
End If
Next
End Function
Function Breite_Befehlszeilen() As Long
Dim i As Long
Dim CBar As CommandBar
For Each CBar In Application.CommandBars
If CBar.Visible And CBar.Position = msoBarLeft Then
Breite_Befehlszeilen = WorksheetFunction.Max(Breite_Befehlszeilen, CBar.Left + CBar. _
Width)
End If
Next
End Function
ansonsten hoffe ich, ich habe alles brücksichtigt, Korrekturen und ergänzungen sind gerne willkommen.
Gruß, Daniel