在VB中设置工程图表格单元的字体和字高

youzigg

     大家好，我想用VB编一个小二次开发程序，用于自动设置新插入到catia工程图的一个表格的各单元字体和字高，我的思路是先插入一个空表格，然后用循环将文本一 一写到一个新建的DrawingText中，再设置该DrawingText的字体和字高，再用SetCellObject函数将DrawingText写入到对应单元格中。我编写的部分代码如下，但程序运行时，新添加的表格始终是空表（无任何文本，当然直接将文本导入工程图新建的表格中是没问题的，只是字体和字高不对而已），请高手指教一下问题出在哪？谢谢。
      部分代码如下：（注：MyView和BomTable都已定义好。）

Dim MyText As String
Dim DrawText As DrawingText
    For i = 1 To Num_Row
    For j = 1 To 5
        MyText = CStr(xlsheet.Cells(i, j ))
        Set DrawText = MyView.Texts.Add(MyText, 0, 0)
        'DrawText.Text = MyText
       DrawText.SetFontSize 0, 1, 2.5
       DrawText.SetFontName 0, 1, "Bell MT"

        BomTable.SetCellObject i, j, DrawText
             Next j
    Next i

watersp