Hallo ihr Programmierkünstler,

in diesem Forum gibt es ein hilfreiches Skript, die Ansicht in Word via Sprachbefehl zu zoomen. Nun wäre es schön, wenn es ein ähnliches Skript auch für Outlook gäbe. Ich habe ein solches im Forum leider nicht gefunden. Da ich selbst keine Skript erstellen kann, frage ich, wer ein solches, für mich und andere hilfreiches Tool schreiben würde.

Beste Grüße

Hans Löhr

Hallo Hans,

ich benutze kein Outlook. Wenn Du aber die Tastaturkürzel für das Zoomen herausfinden könntest, wäre das eine Basis für das Skript.

Mit freundlichen Grüßen

Jörg

Zitat von Dioskur

---

Hallo ihr Programmierkünstler,

in diesem Forum gibt es ein hilfreiches Skript, die Ansicht in Word via Sprachbefehl zu zoomen. Nun wäre es schön, wenn es ein ähnliches Skript auch für Outlook gäbe. Ich habe ein solches im Forum leider nicht gefunden. Da ich selbst keine Skript erstellen kann, frage ich, wer ein solches, für mich und andere hilfreiches Tool schreiben würde.

Beste Grüße

Hans Löhr

---

Zitat von Dioskur

---

in diesem Forum gibt es ein hilfreiches Skript, die Ansicht in Word via Sprachbefehl zu zoomen. Nun wäre es schön, wenn es ein ähnliches Skript auch für Outlook gäbe. Ich habe ein solches im Forum leider nicht gefunden. Da ich selbst keine Skript erstellen kann, frage ich, wer ein solches, für mich und andere hilfreiches Tool schreiben würde.

Beste Grüße

Hans Löhr

---

Hallo Hans,

was in Word mit VBA ging, geht in Outlook leider nicht. Aber Not macht erfinderisch, deshalb eine allgemein gültigere Methode (Simulation der Strg-Taste mit gleichzeitiger Betätigung des Maus-Rads) dafür als Skript:

Declare Function keybd_event Lib "user32.dll" (ByVal vKey As _
Long, bScan As Long, ByVal Flag As Long, ByVal exInfo As Long) As Long
Const VK_CTRL = 17
Declare Function mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As _
Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) As Long
Const WHEEL_DELTA = 120
Const MOUSEEVENTF_WHEEL = &H800
Sub Main
    keybd_event(VK_CTRL,0,0,0)
    Select Case ListVar1
        Case "rein"
        mouse_event(MOUSEEVENTF_WHEEL, 0, 0, WHEEL_DELTA, 0)
        Case "raus"
        mouse_event(MOUSEEVENTF_WHEEL, 0, 0, -WHEEL_DELTA, 0)
    End Select
    keybd_event(VK_CTRL,0,2,0)
End Sub
 
 

In der Form wird ein Befehlsname mit Liste benötigt, die die Elemente "rein" und "raus" umfasst. Der Befehl könnte dann lauten:

Zoom rein
Zoom raus

Viel Spaß damit!
Rüdiger

Zitat von R.Wilke

---

Zoom rein
Zoom raus

---

Hallo Rüdiger,

besten Dank! Dein Skript funktioniert prächtig und das nicht nur in Microsoft-Anwendungen, sondern auch beispielsweise im Google-Kalender und in anderen Programmen, in denen das Mausrad für Zoom-Einstellungen zum Einsatz kommt! Dafür werden dir außer mir noch viele andere dankbar sein.

Hans

Zitat von JoeBu

---

Tastuturkürzel für das Zoomen

---

Hallo Jörg,

Tastaturkürzel für das Zoomen habe ich leider nicht gefunden. Ich kenne nur den Trick mit dem Mausrad.

Einen schönen Gruß!

Hans