材料明细表的变字体设置→人工设置，API设置，Sw内置。

ning84

" a; E7 A/ @7 j& }
% E9 \( P: s$ B1 n

在材料明细表中，经常将名称的字体设置为4mm。
将图示中的，材料表的A1字体设置为2.5mm.
7 A% v8 X" a1 ]
9 |3 ?6 O7 I  F) B* k% e1 x
( ?$ {# h/ w( J4 U. G


问各位有什么解决方法：
1 人工设置字体。
# k7 z; z. x+ ~+ v& M2 用API设置字体。
+ W+ s: q5 \, t# E+ o7 q9 t3 材料明细表内置功能设置字体。

" ?  B3 T* V- v( @$ }0 @
. i4 q+ e! [2 v
* I3 {! d% c- v7 \
, p( c1 L% g0 \0 E9 u3 T4 ^

' z2 S9 z! @& R  ]& I- y( K

1. 
   
2. Private Sub ll0617()
   * y+ u: ~8 w; @! A+ A
3.     Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
   . g/ c  W1 I  r) Z0 @. Z
4.         Set SwApp = Application.SldWorks
   ) {) u' t$ c  V% o- j  g
5.         Set SwModel = SwApp.ActiveDoc
   
6.     Dim SwSelMgr As SelectionMgr
   
7.         Set SwSelMgr = SwModel.SelectionManager
   
8.     Dim SwTabAnn As TableAnnotation
   * P! w5 \5 K# w# ~
9.         Set SwTabAnn = SwSelMgr.GetSelectedObject5(1)
   $ H+ E# _% U9 d7 ~: w% P. B. a# l) X
10.         With SwTabAnn '
    
11.             For ii = 0 To .RowCount - 1
    
12.                 Debug.Print ; .Text(ii, 2)
    # w2 [6 x( @  ?/ A
13.             Next ii
    
14.         End With
    5 I- g1 r4 G0 j4 t  O1 w
15. End Sub
    9 o9 `' c# k3 D. J3 n  `8 S: x

复制代码

* C/ f- h& a! ~) H6 L% _

  `. p& T" |; t- b1 l+ Q4 I/ i