---

Hallo zusammen,
ich arbeite jetzt seit einiger Zeit mit E3 und habe mal zwei Fragen zum Handling des Programms.
Gibt es eine Möglichkeit oder ein Script, daß das Programm bei einem Seitenwechsel automatisch wieder auf 100% zoomt?
Das gleiche gilt für "Hervorhebung zurücksetzen". Bisher habe ich letzteres über eine Tastenkombination gelöst.

Es wäre schön, wenn das über die Bild Auf und Bild Ab Taste funktionieren würde.

Vielen Dank und viele Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

ich habe mir das mal angeschaut. Wenn überhaupt könnte man das mit einem AfterOpenSheet Trigger machen .. den scheint es aber nicht zu geben.
Sprich Automatisch hast Du da schlechte Karten.
Den Zoom könntest Du über ein COM Script machen:
SheetInterface::SetVisibleArea()
Das zurücksetzen des Highlights mit JobInterface::ResetHighlight()

Wie gesagt beim Bild auf/ab geht das aber nicht automatisch.

Liebe Grüße

Jörg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen

Läuft von aussen aus einem Excel File heraus. Folgende Probleme habe ich festgestellt.
-Nur ein Projekt gleichzeitig möglich.
-Rauszoomen klappt nicht wenn mehrere Seiten gleichzeitig offen sind und der PageUp/Down auf ein anderes Fenster springt.
-ResetHighlight löscht beim ersten springen auf die Seite die Markierung gleich wieder.
-Benötigt durch den Loop und Sleep extrem viel Rechenzeit

Code:

---

#If VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems
#End If
Sub PageChange()
    Set App = CreateObject("CT.Application")
    Set Prj = App.CreateJobObject
    Set job = App.CreateJobObject
    Set sht = Prj.CreateSheetObject
    Do
        ActiveID = job.GetActiveSheetId()
        If LastID = "" Then LastID = ActiveID
        If LastID <> ActiveID Then
            LastID = ActiveID
            DoEvents
            sht.SetId ActiveID
            sht.SetVisibleArea 0, 0, 4200, 2970
            job.ResetHighlight
            DoEvents
            Sleep 500
        End If
    Loop
End Sub

---

Grüsse Sevy

[Diese Nachricht wurde von Sevy4791 am 26. Apr. 2022 editiert.]

---

Sorry, das ich mich nach so langer Zeit erst melde.
Vielen Dank dafür.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP