0 Replies Latest reply on Nov 25, 2015 10:53 AM by Marc-Xavier Bilodeau

    Changing note text style - vba

    Marc-Xavier Bilodeau

      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?