AnsweredAssumed Answered

Changing note text style - vba

Question asked by Marc-Xavier Bilodeau on Nov 25, 2015

I' trying to change a note text style using a vba macro.

 

I created 2 styles, and I recorded myself switching between the 2, and I got something like this:

 

Dim swApp As Object

 

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

 

Sub main()

 

Set swApp = _

Application.SldWorks

 

Set Part = swApp.ActiveDoc

Dim myNote As Object

boolstatus = Part.Extension.SelectByID2("Objet de détail184@Feuille1", "NOTE", 0.111882989473684, 0.139244136842105, 0, False, 0, Nothing, 0)

Set myNote = Part.SelectionManager.GetSelectedObject5(1)

Dim myAnno As Object

If Not myNote Is Nothing Then

   Set myAnno = myNote.GetAnnotation()

   myAnno.SetStyleName "NoteSTD"

End If

End Sub

 

 

---

 

Now when I run the macro, it select my note.

If lauch it again, then my annotation change to the good style, but my note also change for "4."

 

Any thought?

Outcomes