Inquired about ExecuteSheetOperation:aucOpExecSheetSetLineColor

Hi All,

I’m using the first code below to find the NetOID, and then I’m trying to change the line color using that NetOID in the second code.
However,
the second code doesn't seem to work.
Could you please let me know if I’ve written something incorrectly or what part might be causing the issue?

Private Sub testShowNetInform()



    Dim arPara(1 To 2) As AucExecuteSheetOperationRecord

    Dim varNet As Variant

    Dim oSheet As Sheet

    

    Set oSheet = ActiveSheet



    arPara(1).qual = aucOpExecSheetGetAllNetInformations

    

    arPara(2).qual = aucArgExecSheetRetVal

    

    Call Application.Utils.ExecuteSheetOperation(oSheet, arPara)

    varNet = arPara(2).Val



End Sub

Private Sub SetLineColor()



    Dim arPara(1 To 4) As AucExecuteSheetOperationRecord

    Dim oSheet As Sheet, netOID As String

    

    Set oSheet = ActiveSheet

    Dim oNet As ObjectItem

    

    Set oNet = Application.Utils.GetSnglObjectByID("00000000-0000-0000-0000-000008C79370")

    

    arPara(1).qual = aucOpExecSheetSetLineColor

    arPara(2).qual = aucArgExecSheetRef2Symbol

    arPara(2).Val = oNet.ID



    arPara(3).qual = aucArgExecSheetFctSel

    arPara(3).Val = 255

    

    arPara(4).qual = aucArgExecSheetLineColor

    arPara(4).Val = "THEMEGUARD(RGB(255,192,0))"

    

    Call oSheet.ExecuteSheetOperation(arPara, True)





End Sub