Hi !

I'm desperately trying to find a solution to align the text in a note on a Solidworks Drawing through VBA. The instruction given on the Solidworks Help doesn't work (as written next). VBA says that "property or method isn't handled by this object".

     Set myNote = Part.InsertNote("Reference")                                       

     Set myAnnotation = myNote.GetAnnotation()

     Set myTextFormat = Part.GetUserPreferenceTextFormat(0)

           myNote.SetTextJustification (swTextJustificationCenter)                 

==>     myNote.SetTextAlignmentVertical (swTextAlignmentMiddle)

           myTextFormat.CharHeight = 0.004                                           

           myTextFormat.TypeFaceName = "Times New Roman"                             

           boolstatus = myAnnotation.SetTextFormat(0, False, myTextFormat)

           boolstatus = myAnnotation.SetPosition(0.2269, 0.0513, 0)    

Any help would be appreciate.