Hallo Reinhard,
es klappt........
Der Fehler war, dass für den Test, ich eine iam hatte.
Danach mit eine ipt hat es gleich geklappt, super hat mir weiter geholfen, danke.
Mit diesem Code ist es OK
Set oPtDoc = oDrawDoc.ActiveSheet.DrawingViews(1).ReferencedFile.ReferencedDocument
Set oPropSet = oPtDoc.PropertySets(3)
Set oProp = oPropSet(2)
oDrawDoc.Sheets.Item(i + 1).ExcludeFromCount = True
oDrawDoc.Sheets.Item(i + 1).Name = oProp.Value
Zwei zusätzliche Fragen hätte ich noch:
- Wie kann man von "oPropSet(2)" den 2 durch "Part number" ersetzen?
- Wie kann man von PropertySets(3) den 3 durch "Design Tracking Properties" ersetzen?
Ich bedanke mich im Voraus für deine Hilfe,
------------------
Gruß Christian
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP