Gestern in der Visio-Schulung fragte ein Teilnehmer, wie man das Blatt auf den ganzen Bildschirm zoomen könne. Hintergrund: manchmal ist der Zoom sehr groß oder sehr klein – man hat sich verlaufen …
Die Antwort: In der Statuszeile befindet sich rechts neben dem Zoom-Werkzeug ein Symbol „Zeichenblatt an aktuelles Fenster anpassen“ – damit funktioniert es. Die Tastenkombination dafür: [Shift] + [Strg] + [W]
Wäre schön (zumindest für mich) , wenn es dazu auch gleich den passenden VBA-Code gäbe.
So muss ich erst wieder bei MS suchen…
Da antworte ich mir mal selber, weil bei MS fündig geworden:
z. Bsp. ActiveWindow.Zoom = -1