Not without VBA

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("A1")) Is Nothing Then Exit Sub
On Error GoTo endit
Application.EnableEvents = False
With ActiveSheet.Shapes("AutoShape 1")
If ActiveSheet.Range("A1").Value = 1 Then
.Line.DashStyle = msoLineSolid
ElseIf ActiveSheet.Range("A1").Value = 0 Then
.Line.DashStyle = msoLineDashDot
End If
End With
endit:
Application.EnableEvents = True
End Sub


This is sheet event code. Right-click on the sheet tab and "View Code".

Copy/paste the code into that module.

Enter a 1 or 0 in A1 and see the autoshape lines change.


Gord Dibben MS Excel MVP

On Fri, 7 Mar 2008 12:38:00 -0800, eoinp
wrote:

I want a 2003 Excel autoshape to have a dashed line if a particular cell
value is zero or solid if the value is one. Can Excel do this?