Thema Datum  Von Nutzer Rating
Antwort
Rot Alle Spalten und dann Zoomfaktor auslesen
25.05.2022 16:14:05 Jens
NotSolved
26.05.2022 13:56:47 Gast21794
NotSolved

Ansicht des Beitrags:
Von:
Jens
Datum:
25.05.2022 16:14:05
Views:
56
Rating: Antwort:
  Ja
Thema:
Alle Spalten und dann Zoomfaktor auslesen

Liebe VBA-Freunde,

ich habe ein Problem und komme nicht weiter.

Ich muss den Zoom eines Blattes auslesen. Mit dem üblichen 

Msgbox(ActiveSheet.PageSetup.Zoom)

geht es nicht, weil das Ergebnis "Falsch" ist, weil ich die Seite im gleichen Makro so einstelle, das auf eine Seitenbreite skaliert wird:

With ActiveSheet.PageSetup
     .Zoom = False
     .FitToPagesTall = False
     .FitToPagesWide = 1
End With

Ich habe in einem Forum auch schon einen Weg gefunden, wie alles eigentlich wunderbar funktioniert. Hier kann ich erst die Seite auf Seitenbreite formatieren und dann über den folgenden Code den Zoomfaktor auslesen. Wenn ich das Makro Schritt für Schritt ausführe, funktioniert alles wunderbar. In getrennten Makros, die ich händisch nacheinander ausführe, ist das auch kein Problem. Nur, wenn ich den Code in ein Makro zusammenstecke oder von einem dritten Makro hintereinander ausführen lasse, stellt der folgende Code den Zoom einfach nur auf 100%.

Sub Spaltenbreite()

    ActiveSheet.Application.ExecuteExcel4Macro "PAGE.SETUP(,,,,,,,,,,,,{1,#N/A})"
    ActiveSheet.Application.ExecuteExcel4Macro "PAGE.SETUP(,,,,,,,,,,,,{#N/A,#N/A})"
    MsgBox ("Zoom ist " & ActiveSheet.PageSetup.Zoom)

End Sub

Das muss aber leider zusammen ausgeführt werden. Hat jemand eine Idee, woran es liegen könnte? Freue mich auch über ganz andere Lösungsvorschläge. 

Vielen, vielen Dank!

Liebe Grüße

Jens

 

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Alle Spalten und dann Zoomfaktor auslesen
25.05.2022 16:14:05 Jens
NotSolved
26.05.2022 13:56:47 Gast21794
NotSolved