Get Note Text Formatting Properties Example (VBA)

This example shows how to get the text formatting out of a note in a drawing, display a standard font chooser dialog, and then modify the text formatting for the note.

 

'-----------------------------------------------------------------------------

Private Function EditNoteFont(Dialog As CommonDialog)

Dim swApp As Object

Dim Part As Object

Dim SelMgr As Object

Dim Note As Object

Dim TextFormat As Object

 

 Set swApp = CreateObject("SldWorks.Application")

 Set Part = swApp.ActiveDoc

 If Not Part Is Nothing Then

  

  Set SelMgr = Part.SelectionManager()

  If SelMgr.GetSelectedObjectCount() <> 1 Then

   MsgBox "Please select a note"

  ElseIf SelMgr.GetSelectedObjectType(1) <> swSelNOTES Then

   MsgBox "Please select a note"

  Else

   Set Note = SelMgr.GetSelectedObject2(1)

   Set TextFormat = Note.GetTextFormat()

   Dialog.FontBold = TextFormat.Bold

   Dialog.FontItalic = TextFormat.Italic

   Dialog.FontUnderline = TextFormat.Underline

   Dialog.FontStrikethru = TextFormat.Strikeout

   Dialog.FontName = TextFormat.TypeFaceName

   

   If TextFormat.IsHeightSpecifiedInPts() Then

    Dialog.FontSize = TextFormat.CharHeightInPts

   End If

 

   On Error GoTo CancelErr

   Dialog.Flags = &H101

   Dialog.ShowFont

   On Error GoTo 0

      

   TextFormat.Bold = Dialog.FontBold

   TextFormat.Italic = Dialog.FontItalic

   TextFormat.Underline = Dialog.FontUnderline

   TextFormat.Strikeout = Dialog.FontStrikethru

   TextFormat.TypeFaceName = Dialog.FontName

   If TextFormat.IsHeightSpecifiedInPts() Then

    TextFormat.CharHeightInPts = Dialog.FontSize

   End If

   

   Note.SetTextFormat 0, TextFormat

   

  End If

  

 End If

 

 Exit Function

 

 CancelErr:

  Exit Function

 

End Function