How to use VBA to change set line style?

What I try, didn't work

Sub SetLineStyle()

'Select a shape，than change its Style
Dim atParamData(1 To 3) As Aucotec.AucExecuteSheetRecord
Set oSheet = Application.ActiveSheet
Set oObj = Application.Selection(1)

atParamData(1).qual = aucOpExecSheetSetLineStyle
atParamData(2).qual = aucArgExecSheetRef2Symbol
atParamData(2).Val = CStr(oObj.ID)
atParamData(3).qual = aucArgExecSheetLineStyle
atParamData(3).Val = "Some New Style"

Call Application.Utils.ExecuteSheetOperation(oSheet, atParamData)
End Sub


aucOpExecSheetSetLineStyle
https://ebdn.aucotec.com/index.php?option=com_content&view=article&id=11548:x181207133740z853&catid=2736&Itemid=1607