ざっくりとですが､以下のような感じでしょうか｡
J25が空白なら斜線を表示し､値が入っていたら斜線を非表示にするｻﾝﾌﾟﾙです｡

Private Sub Worksheet_Change(ByVal Target As Range)
 If Range("J25").Value = "" Then
 ActiveSheet.Shapes.Range(Array("斜線1")).Line.Visible = msoTrue
 Else
 ActiveSheet.Shapes.Range(Array("斜線1")).Line.Visible = msoFalse
 End If
End Sub

ｵｰﾄｼｪｲﾌﾟのｵﾌﾞｼﾞｪｸﾄ名については､ｼｰﾄの上部にある｢名前ﾎﾞｯｸｽ｣で確認できるかと思います｡

ｾﾙ内容を変更する度にﾏｸﾛ起動するのではﾏｸﾛ起動方法にもよりますが､運用性が如何かと思いました｡
VBAを標準ﾓｼﾞｭｰﾙに記述ではなくｼｰﾄﾓｼﾞｭｰﾙに記述することで､ｾﾙ内容が変更されるとほぼ同時に斜線のｵﾝ／ｵﾌが出来るように考えてみました｡

提示されたｻﾝﾌﾟﾙの場合なら､以下の二つのﾌﾟﾛｼｼﾞｬをそのまままとめて､当該ﾜｰｸｼｰﾄのｼｰﾄﾓｼﾞｭｰﾙに転記すれば､そのまま動作すると思います｡

Private Sub Worksheet_Change(ByVal Target As Range)
'対象ｾﾙが変更されたときに斜線のｵﾝ／ｵﾌを行う
 If Target.Cells(1).Address = "$J$25" Then
 Call myLineCtrl(Target, "斜線1")
 ElseIf Target.Cells(1).Address = "$J$32" Then
 Call myLineCtrl(Target, "斜線2")
 ElseIf Target.Cells(1).Address = "$J$40" Then
 Call myLineCtrl(Target, "斜線3")
 ElseIf Target.Cells(1).Address = "$J$48" Then
 Call myLineCtrl(Target, "斜線4")
 ElseIf Target.Cells(1).Address = "$J$56" Then
 Call myLineCtrl(Target, "直線ｺﾈｸﾀ 4")
 ElseIf Target.Cells(1).Address = "$AB$30" Then
 Call myLineCtrl(Target, "斜線5")
 ElseIf Target.Cells(1).Address = "$AB$44" Then
 Call myLineCtrl(Target, "斜線6")
 ElseIf Target.Cells(1).Address = "$CA$46" Then
 Call myLineCtrl(Target, "斜線7")
 'ElseIf Target.Cells(1).Address = "$??$??" Then
 ' Call myLineCtrl(Target, "斜線???")
 '
 '
 '
 End If
End Sub


Sub myLineCtrl(prmTarget As Range, prmShapeName)
'斜線の表示ｵﾝ／ｵﾌを行うｻﾌﾞﾌﾟﾛｼｼﾞｬ
 If prmTarget.Cells(1).Value = "" Then
 '当該ｾﾙが値が入っていないなら斜線を表示する
 ActiveSheet.Shapes(prmShapeName).Visible = True
 Else
 '当該ｾﾙに値が入っていたら斜線を表示しない
 ActiveSheet.Shapes(prmShapeName).Visible = False
 End If
End Sub