Link to home
Start Free TrialLog in
Avatar of Seamus2626
Seamus2626Flag for Ireland

asked on

AutoColour Arrows

Hi,

I have some code that autocolours my Ovals, can anyone amend my code so that it autocolours my arrows.

Private Sub Worksheet_Calculate()
    Dim ovl                   As Oval

    For Each ovl In Me.Ovals
        If Range(Trim$(ovl.Formula)).Value < 0 Then
            ovl.Interior.Color = vbRed
            ovl.Font.Color = vbWhite
        Else
            ovl.Interior.Color = vbGreen
            ovl.Font.Color = vbBlack
        End If
    Next ovl

End Sub

Open in new window

Avatar of Rgonzo1971
Rgonzo1971
Which arrows?
Avatar of Seamus2626
Seamus2626
Flag of Ireland image

ASKER

So, I have arrows as opposed to Ovals on my spreadsheet, so where the code is changing the shape Oval, it needs to change the arrows on a sheet
Avatar of Rgonzo1971
Rgonzo1971
Could you send a dummy
Avatar of Seamus2626
Seamus2626
Flag of Ireland image

ASKER

Attached, thanks!
ss.xlsm
ASKER CERTIFIED SOLUTION
Avatar of Rgonzo1971
Rgonzo1971
Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of Seamus2626
Seamus2626
Flag of Ireland image

ASKER

Perfect, thanks Rgonzo!