---

Moin Community,

ich bin auf der Suche nach einer Möglichkeit mittels vba Makro das Sheet aktiv zu setzen.
Das Seitens der Dokumentation bereitgestellte .Activate funktioniert leider nicht nach meinen Bedürfnissen.
Ich möchte gerne, dass ausschließlich das Sheet aktiv ist, keine View. Dies erreicht man manuell mit RM->Activate Sheet oder RM->xxx object -> Definition...
Hier mein Code:

Code:

---

' --- Aktionen für CATDrawing ---
Sub HandleCATDrawing(ByVal odoc As Document, lang As String)

    Dim oDrawDoc As DrawingDocument
    Dim oSheets As DrawingSheets
    Dim oSheet As DrawingSheet
    Dim i As Integer

    Set oDrawDoc = odoc
    Set oSheets = oDrawDoc.Sheets

    ' 1. Strukturbaum einklappen
    If lang = "English" Then
        CATIA.StartCommand "Collapse All"
    ElseIf lang = "German" Then
        CATIA.StartCommand "Alles ausblenden"
    End If
   
    ' 2. Alle Zeichnungsblätter durchgehen, aktivieren, aktualisieren und FitInAll anwenden
    For i = 1 To oSheets.count
        Set oSheet = oSheets.Item(i)
        oSheet.Activate
   
        ' Views aktualisieren
        oSheet.Update
   
        ' Ansicht zentrieren
        CATIA.ActiveWindow.ActiveViewer.Reframe
    Next
   
    ' Erstes Blatt aktivieren
    Set oSheet = oSheets.Item(1)
    oSheet.Activate

End Sub

---

Vielen Dank für eure Beiträge in vorraus!

Schönen Gruß
Carsten

[Diese Nachricht wurde von SeeCa am 16. Jul. 2025 editiert.]

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

---

Servus

Du könntest versuchen den Foreground/Vordergrund des Blattes zu aktivieren.
Dabei handelt es sich um die erste View des Blattes. zB

Code:

---

Set oSheet = oSheets.Item(i)
'Vordergrund aktivieren
oSheet.Views.Item(1).Activate
' Views aktualisieren
oSheet.Update

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hi Bernd,

perfekt!

Vielen Dank

Schönen Gruß
Carsten

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