Hallo liebe Community!
Ich versuche gerade die max. Seitenzahl (und anschließend auch die aktuelle Seite) als Parameter mit einem Textfeld zu verknüpfen. Ich hätte gerne, dass sich der Text automatisch aktualisiert, wenn ich eine zusätzliche Seite hinzufüge.
Leider funktioniert mein folgender Code nicht. Der Parameter SheetsMax wird einfach nicht auf die Seitenzahl gesetzt und bleibt immer 999.
Irgendwelche Vorschläge?
Code:
Dim pParameter As Parameter On Error Resume Next
oDrwDocument.Parameters.Remove("SheetsMax")
On Error Goto 0
Set pParameter = oDrwDocument.Parameters.CreateInteger("SheetsMax", 999)
Dim SheetsMaxFormula As Formula
Set SheetsMaxFormula = oDrwDocument.Relations.CreateFormula("SheetsMax","Computes the max. sheet number",pParameter,"CATIA.ActiveDocument.Sheets.Count")
oDrwText.InsertVariable 0, 0, oDrwDocument.Parameters.Item("SheetsMax")
[Diese Nachricht wurde von C.Samer am 29. Sep. 2017 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP