Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: UserForm an Zeilenhöhe anpassen

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
Anzeige

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
Anzeige
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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige