在单元格中画斜线

[xinzhulu]

我用word对象画了一张Table ,想在它的第一个单元格中画一个斜线。但是用宏录制时，不让我画斜线。有哪位兄做这个方面的，请给个提示

[lsftest]

ActiveDocument.Shapes.AddConnector(msoConnectorStraight, 84.75, 71.25, _
42#, 15.75).Select

[fvflove]

'******************
'新建立一个文档.会自动生成表格且绘制斜线

'******************
Sub Macro7()
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
        5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "网格型" Then
            .Style = "网格型"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With
    
    
    '***********************增加表格
    
    Selection.Tables(1).Cell(1, 1).Borders(wdBorderDiagonalDown).LineStyle = Options.DefaultBorderLineStyle  '绘制左上至右下
    Selection.Tables(1).Cell(1, 3).Borders(wdBorderDiagonalUp).LineStyle = Options.DefaultBorderLineStyle  '绘制左下至右上
    
    '画线
End Sub



'******************
'当已有表格,用下面示例.
'但是光标必须在表格内,不然会出现错误.
'Word.对对象的控制好难.
'你看一下,用 wApp.Doc.Tables(1) 能不能取得表格对象.

'******************

Sub Macro8()
   '***********************增加表格
    Selection.Tables(1).Cell(1, 1).Borders(wdBorderDiagonalDown).LineStyle = Options.DefaultBorderLineStyle
    Selection.Tables(1).Cell(1, 3).Borders(wdBorderDiagonalUp).LineStyle = Options.DefaultBorderLineStyle
    
    '画线

End Sub