Excel Makro Zoom

Question

Hallo zusammen,

ich würde gerne über das Steuerelement "Scrollleiste" den Zoom folgender Tabellenblätter

"Anwesenheitsliste", "Noteneingabe" und "Notengewichtung" (alle haben einen Blattschutz und werden auf "very hidden" gestellt!) verändern können.

Folgender Code funktioniert im Modul

Kann mir jemand bitte bei der Anpassung an das Steuerelement helfen?

Danke und

viele Grüße

Andreas

---

Sub Zoomen()

Dim i As Integer

Application.ScreenUpdating = False

For i = 1 To Sheets.Count

Sheets(i).Activate

ActiveWindow.Zoom = 78

Next

Worksheets("Schuelerliste").Activate

Application.ScreenUpdating = True

End Sub

Answer 1

Hallo Andreas,

ZOOM ist eine Eigenschaft von ActiveWindow. Du müsstest jedes Blatt nacheinander aktivieren, um es zoomen zu können. Das bringt dir nur Flackern auf den Bildschirm.

Du kannst einer Zelle den Wert des Scrollbalken zuweisen.

Claus

Answer 2

Hallo Andreas,

verwende einen Scrollbar aus den ActiveX-Steuerelementen, Dort gibt es das Scrollbar_Change-Event.

Dort kannst du dann eingeben:

Private Sub ScrollBar1_Change()

With ActiveWindow

  .Zoom = ScrollBar1.Value 

End With

End Sub

Die Min- und Max-Werte des Scrollbar kannst du im Eigenschaften-Fenster eingeben.

Claus

Answer 3

Hallo Claus,

Dankeschön für die Rückmeldung.

Wie würde denn der Code für das Xactive Steuerelement aussehen, wenn nicht das aktive Tabellenblatt

angesprochen wird, sondern andere?

Und gibt es auch hier eine Möglichkeit sich den Zoomwert anzeigen zu lassen?

Viele Grüße

Andreas

Answer 4

ok Dankeschön Claus

Viele Grüße

Andreas