AnsweredAssumed Answered

How to change color in cell of annotation table.

Question asked by Yong Ning on May 7, 2014
Latest reply on Mar 28, 2019 by Hiyel Kar

Private Sub ll1()

  Dim SwApp As SldWorks.SldWorks, SwDraw As DrawingDoc

    Set SwApp = Application.SldWorks

    Set SwDraw = SwApp.ActiveDoc


  Dim SwModel As ModelDoc2, SwSelMgr As SelectionMgr

  Dim SwTable As TableAnnotation, SwAnn As Annotation

   Set SwSelMgr = SwDraw.SelectionManager() 

   Set SwTable = SwSelMgr.GetSelectedObject2(1)

   With SwTable           

      Set SwAnn = .GetAnnotation     

      SwAnn.Color = 255  '→ question, change color is General Table

   End With

End Sub


Hope change color for cell in general table