Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
UserForm an Zeilenhöhe anpassen
Andre´
Hallo alle zusammen,
nach dem Aufruf einer UserForm soll sich der Zoomfaktor der UserForm an die Höhe der Zeile 1 orientieren und links in Zelle A1 sich öffnen.
nachfolgend ein Bsp.:
Userbild
Und eine Bsp. Mappe

Die Datei https://www.herber.de/bbs/user/79728.xls wurde aus Datenschutzgründen gelöscht


Wie kann das erreicht werden.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
MFG Andre

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: UserForm an Zeilenhöhe anpassen
10.04.2012 21:22:50
Josef

Hallo André,
auf Frames würde ich verzichten, die brauchen nur eine Menge Speicher und sind zu nichts gut.
Ich würde das UF auch ohne Rahmen anzeigen (schließen per Doppelklick auf die Form!)
https://www.herber.de/bbs/user/79737.xls

« Gruß Sepp »

Anzeige
AW: UserForm an Zeilenhöhe anpassen
10.04.2012 22:05:02
Andre´
Hallo Sepp,
danke für die Lösung.
Mit dieser Lösung werden leider nicht alle Elemente angepasst, falls mehr vorhanden sind.
Verkleinert man die Spaltenbreite A bis C, dann wird schon mehr sichtbar.
Ich versuche mal einiges auf meine Bedürfnisse anzupassen.
Den Beitrag lasse ich mal offen stehen.
MFG Andre
AW: UserForm an Zeilenhöhe anpassen
15.04.2012 14:40:34
fcs
Hallo André,
mit folgender Anpassung in Sepps Lösung sollten Zoom des Userforms und Größenanpassung des angezeigten Fensters einigermaßen funktionieren.
Gruß
Franz
Sub ShowForm()
Dim rc As RECT, dblZoom As Double
rc = GetRangeRect(Range("A1"))
Const FensterTitel As Double = 13 'Höhe des Fenstertitels der Userform
With UserForm1
.StartUpPosition = 0
.Move rc.Left / fX, rc.Top / fY
dblZoom = ActiveWindow.Zoom * Range("A1").Height / (.Height - FensterTitel)
If dblZoom  400 Then
dblZoom = 400
End If
.Zoom = dblZoom
.Height = FensterTitel + (.Height - FensterTitel) * dblZoom / 100
.Width = .Width * dblZoom / 100
.Show 1 '0= vbModeless (ungebunden) 1= vbModal (gebunden)
End With
End Sub

Anzeige

84 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige