7 Replies Latest reply on Jan 9, 2015 4:59 PM by Daniel Andersson

    How to change color in cell of annotation table.

    Yong Ning

      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