---

Hallo

Ich habe einen kleinen 10 Zeiler, der in der IDW eine strukturierte Teileliste vollständig erweitern soll. Läuft soweit, nur wie immer, es dauert viel zu lange. Die Problemzeile habe ich im Code kommentiert. Eigentlich müßte nach dem Aufklappen einer Teilelistenzeile oRow von PartsListRow zu PartsListRows wechseln, nur wie soll das gehen? Ich meine, wenn die Zeile aufgeklappt wird, ist aus der TeileListenZeile ja eigentlich ein TeileListenZeileN, die API ist da natürlich anderer Meinung.

Code:

---

Private Sub expand_PLR()
'strukturierte Teileliste in der IDW vollständig aufklappen
' es werden alle Zeilen der Teileliste eingeblendet
' ACHTUNG: Kann dauern

Dim oApp As Application
Set oApp = ThisApplication

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = oApp.ActiveDocument

Dim oPartsList As PartsList
Set oPartsList = oDrawDoc.ActiveSheet.PartsLists.Item(1)

Dim oRows As PartsListRows
Set oRows = oPartsList.PartsListRows

Call PLR_expand(oRows)

MsgBox "Fertig"

End Sub

Private Sub PLR_expand(ByRef oRows As PartsListRows)
    Dim oRow As PartsListRow
    For Each oRow In oRows
        If oRow.Expandable = True Then
            If oRow.Expanded = False Then
                oRow.Expanded = True
                'Hier kommt das Problem
                Set oRows = oRow.Parent.PartsListRows
                '
                Call PLR_expand(oRows)
            End If
        End If
    Next
End Sub

---

------------------
MfG
RK

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