Get Format of Note Text Example (VBA)
This example shows how to find out whether the font style for notes
is italic.
'---------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swTextFormat As SldWorks.textFormat
Dim TextFormatObj As Object
Dim retval As Boolean
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set TextFormatObj = swModel.GetUserPreferenceTextFormat(swDetailingNoteTextFormat)
Set swTextFormat = TextFormatObj
retval = swTextFormat.Italic
Debug.Print retval
End Sub