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

 

 

000.jpg

 

00.jpg

 

0.jpg

Outcomes