<?xml encoding=”UTF-8″>By Adam Nagy
If you want to change the order of the columns of the PartsList object then you can use the PartsListColumn.Reposition function for that. Here is a VBA sample that reverses the order of the parts list columns:
Sub ReorderPartsList()
' The parts list whose columns you want to reorder
' needs to be selected in the User Interface
Dim doc As DrawingDocument
Set doc = ThisApplication.ActiveDocument
Dim pl As PartsList
Set pl = doc.SelectSet(1)
Dim plcs As PartsListColumns
Set plcs = pl.PartsListColumns
' We'll simply reverse the order of the columns
Dim i As Integer
For i = 1 To plcs.count - 1
Dim plc As PartsListColumn
Set plc = plcs(1)
Call plc.Reposition(plcs.count - i + 1, False)
Next
End Sub
Leave a Reply