line or border inside a cell?

[masc]

I have a unique cell, lets say A1="A"
and i want to draw a line or place a border horinzontal or vertical inside the cell, so that the letter "A" looks like it was crossed.

 

[phxsportz]

With Selection.Borders(xlDiagonalDown)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
End With

 

[Matty]

Couldn't you just use diagonal Borders for this, or am I missing something?

Matty

 

[masc]

No diagonals, i want to draw a path thru the cells, middle of them.

 

[phxsportz]

The only thing I can think of is setting the Strike Through property on the font

    With Selection.Font
        .Strikethrough = True
    End With

Or if you know the specific cell.. simply put in

Range("YOUR CELL LOCATION").Font.Strikethrough = True

 

[masc]

Thats horizontal and its ok, but what about vertical?

 

[phxsportz]

    With Selection
         .Interior.Pattern = xlLightVertical
         .Font.Strikethrough = True
    End With

 

[masc]

what about one line only like the Strikethrough for the vertical, or a way to create a pattern of one vertical line?

 

[masc]

Or how about drawing a shape above the cell with the line shape?