Zoom per Mausrad

[Nanu]

Hola mal wieder ins Forum, ich habe mal eine Spielerei die meine Kentnisse bei weitem überschreitet und hoffe auf euer Fachwissen hier. Ich habe eine Userform1 von wo ich die Userform2 öffne. Diese Userform nutze ich für ein Image1 als Zoom. Mit folgendem Code zoome ich das Bild.

Code: Alles auswählen

Private Sub UserForm_Activate()
UserForm2.Image1.Picture = UserForm1.Image1.Picture
Me.Zoom = 125
Dim Breite      As Integer
Dim breite2     As Integer
Dim Höhe        As Integer
Dim höhe2       As Integer
Dim ftop        As Integer
Dim fleft       As Integer
Dim zoomfa      As Double
Dim randabstand As Integer
With Me
    'Userform
    Breite = .Width
    Höhe = .Height
    'Excel-Fenster
    breite2 = Application.Width
    höhe2 = Application.Height
    ftop = Application.Top
    fleft = Application.Left
    randabstand = 10
    .StartUpPosition = 0
    .Left = fleft + randabstand
    .Top = ftop + randabstand
    .Width = breite2 - 2 * randabstand
    .Height = höhe2 - 2 * randabstand
    If breite2 < Breite Then
        zoomfa = breite2 / Breite * 100
        .Zoom = zoomfa
    End If
End With
End Sub

Das klappt auch gut aber gibt es eine Möglichkeit das man das Bild auch mit dem Mausrad so zoomen kann wie man es haben möchte und danach ein Button wo es wieder auf den normalen Zoomfaktor oder auf die Normalgröße zurück gesetzt wird.
Aber wie gesagt ist nur wieder so eine Spielerei von mir.
Saludos Nanu und vielen Dank schonmal an alle die immer helfen

[Wisi82]

Hallo Nanu

Soweit ich weiss, gibt es keine VBA-Funktionen bezüglich Mausrad . Mit einem sehr grossen Aufwand könnte man es mit API-Funktionen machen, dazu habe ich aber absolut keinen Bock.

Dein Post hat mich aber irgendwie getriggert, deshalb habe ich gestern noch etwas gebastelt.
Es ist mir gelungen eine Userform so einzurichten, dass man das Bild zoomen kann, einfach nicht über das Mausrad, sondern über eine Scrollbar, welche dann mit der Maus, Tastatur oder VBA eingestellt werden kann.
Schau es dir mal an, viel Spass beim ausprobieren.

Ne Rückmeldung wäre cool

Beste Grüsse Erwin

[d'r Bastler]

Moin, ihr beiden!

Habe was gefunden, was vielleicht weiterhilft:

https://stackoverflow.com/questions/535 ... ms-textbox

Is aber nix für Anfänger, wie mich ...

Grüße

[Nanu]

Danke Erwin für deine Mühe und dein Interesse.
Ich werde es die Tage ausprobieren und dir dann Bescheid geben. Und wie gesagt das mit dem Mausrad war nur so eine Idee. Ich bin für alles andere auch offen und nochmals vielen Dank für deine Arbeit.
Saludos Nanu

[Nanu]

Hola Bastler,
auch an dich wie immer großen Dank für deine Hilfe bei meinen Spielereien.
Saludos Nanu

[Wisi82]

Hallo zusammen

Is aber nix für Anfänger, wie mich ...

Genau aus diesem Grund habe ich keinen Bock mich tiefer in das Thema einzuarbeiten.

Freundliche Grüsse Erwin

[Nanu]

Hallo Erwin,
wie versprochen die Rückmeldung. Gefällt mir auf jeden Fall besser wie mein Code, da man bei deinem stufenlos zoomen kann . Schade nur das, wie bei meinem Code auch, das immer für die ganze Userform gilt und nicht nur für das Image.
Vielen Dank für die Arbeit die du inestiert hast.
Saludos Nanu

[Wisi82]

Hallo Nanu

Vielen Dank für die Rückmeldung, das wäre eine Kleinigkeit das anzupassen, Wie gross soll denn das Fenster (USF) sein?

LG Erwin

[Wisi82]

Hallo Nanu

Ich habe jetzt noch eine Version gebastelt, in welcher die Fenstergrösse (USF) direkt in der Exceltabelle eingetragen werden kann und sie bleibt konstant unabhängig vom eingestellten Zoom.
Viel Spass damit

Beste Grüsse Erwin

[d'r Bastler]

Moin allerseits,

erst einmal Grüße in die zentral-amerikanische und zentral-eurpoäische Schweiz

im Moment habe ich leider nicht die Zeit meine Idee vollständig auszuarbeiten, sie ist aber vielleicht eine hilfreiche Anregung:

Ich habe eine Userform gebaut, die ein Frame (200 x 200), ein darin zentriertes Image (300 x 300 (sic!)) und eine Scrollbar (außerhalb des Frames, Höhe 100, Min = 0, Max = 200) enthält. Über debug.print lese ich den slb.value und den frm.zoom aus. Image kennt die Zoom-Eigenschaft nicht, aber der Frame und das Image spielt mit.

Code: Alles auswählen

Option Explicit

Sub userform_initialize()
    ScrollBar1.Value = 0
    Frame1.Zoom = 11
End Sub

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    userform_initialize
End Sub

Private Sub ScrollBar1_Scroll()

Debug.Print ScrollBar1.Value & " " & Frame1.Zoom

On Error Resume Next
Frame1.Zoom = ScrollBar1.Value * 0.25

End Sub

Ich hatte gehofft eine Lösung anbieten zu können, in der man mithilfe der Scrollbar aus einer mittleren Position rein- und rauszoomen. So kann man immerhin reinzoomen. Wie gesagt als Anregung, die ich aber für ausbaufähig halte. Und sollte auch über zwei Userforms funktionieren ... aber wozu das?

Viel Spaß! und liebe Grüße