Dim l As Shape
Dim sh As Worksheet
Set sh = ActiveSheet
With ActiveCell
Set l = sh.Shapes.AddLine( _
.Left - .Width / 2, _
.Top + .Width / 2, _
.Left + .Width / 2, _
.Top + .Width / 2)
End With
With l.Line
.BeginArrowheadStyle = msoArrowheadOval
.EndArrowheadStyle = msoArrowheadOval
.BeginArrowheadWidth = msoArrowheadWidthMedium
.BeginArrowheadLength = msoArrowheadLengthMedium
.EndArrowheadWidth = msoArrowheadWidthMedium
.EndArrowheadLength = msoArrowheadLengthMedium
.Visible = msoTrue
End With
Public Sub LinkWestSpecial(c As Range, dest As Range)
Dim L As Shape
With c
Set L = c.Worksheet.Shapes.AddLine( _
.Left, _
.Top + .Width / 2, _
dest.Left + dest.Width, _
dest.Top + .Width / 2)
End With
StyleLink L
L.name = "_LW" & c.Value
End Sub
This is sort of a secondary thing, but I agree that it would be a nice addition. I will probably look into changing the border shading
of the cells.
If that doesn't pan-out, I'm sure there is a way to create a Shape object (arrow, or line) and set it's coordinates to the "wall" middles.
Although these tweaks are on the back burner, I think that walls along with up/down macros will add to the appeal of the project.