Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
rhasell
in reply to: felix.cortes5K3Y2

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