값에 따른 화살표 크기 자동 표시하는 법 문의드립니다.

Private Sub MakeArrowLine()
 
    Application.ScreenUpdating = False
    Call Delete_Shape
 
    Dim rng As Range, rc As Range, rcIndex As Range, i As Integer
    Dim x As Single, y As Single, w As Single, h As Single
    Dim indexLen As Single, colWidth As Single, lineLen As Single
    Dim wFactor As Single: wFactor = <span style="color: #0000ff;">6</span>  <span style="color: #ff00ff;">'<-- 각 컴퓨터에 맞게 수정 (상기 얻은 wFactor 값으로 변경)</span>
 
    Set rng = Range(Range("ai11"), Range("ai34"))