Dynamic length of Arrow

[Mariner191]

Mr. Excel,

Is there a way to have the Length of an Arrow, correspond to the Value in a cell? Sparklines does not appear to be the solution.

Thank you!
Mariner191

 

[Comfy]

Possibly something like this:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wb As Workbook
Dim ws As Worksheet
Dim Shp As Shape


Set wb = ActiveWorkbook
Set ws = wb.ActiveSheet

    If Not Intersect(Range("A1"), Target) Is Nothing Then
        For Each Shp In ws.Shapes
        If Shp.Name Like "*Straight Arrow*" Then Shp.Width = Cells(1, 1).Value
        Next
    End If
End Sub