10-23-2019
04:43 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
10-23-2019
04:43 PM
Hi
Try this.
Once you have got it working, expand the code to include a multivalue list, allowing a wider selection.
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
Dim oPartsList1 As PartsList
oPartsList1 = oDrawDoc.ActiveSheet.PartsLists.Item(1)
oPartsList1.Style = oDrawDoc.StylesManager.PartsListStyles.Item("Style Two")
Reg
2025.2
2025.2