The sub below set the style for all the shapes on the NDocument. How do I set the style for the selected Shape only?

Private Sub SetStyleForLine()

If bInit = True Then Exit Sub

For Each oNode As NShape In View.Selection.Nodes

Dim oStrokeStyle As NStrokeStyle

If oNode.Style Is Nothing AndAlso oNode.Style.StrokeStyle Is Nothing Then

Continue For

Else

End If

oStrokeStyle.Width = New NLength(CSng(NewLineWidth.Value))

oNode.Style.StrokeStyle = oStrokeStyle

Next

End Sub

Thanks Thunis

Hi,

The code you have posted should update the stroke style of all currently selected shapes. If you have only one shape selected, only it will be updated. Do you want to achieve something else? If yes, please elaborate.

One suggestion regarding your code is to use oNode.Style.StrokeStyle instead of ComposeStrokeStyle() in the Else clause of your loop's If statement as this is the correct way to get the local stroke style of the shape for modification.