Sub ガントチャート描画2()
  Dim c As Range
  Dim org As Range
  Dim dst As Range
 
  For Each c In Range("D8:D20")
     If c.Value <> "" Then
         Call MyFind(c.Text, org)
         Call MyFind(c.Offset(0, 1).Text, dst)
 
         With ActiveSheet.Shapes.AddLine(org.Left + 0, _
             c.Top + 7, dst.Left + 0, c.Top + 7).Line
             .EndArrowheadStyle = msoArrowheadTriangle
             .ForeColor.RGB = RGB(0, 0, 128)
             .Weight = 3
         End With
     End If
  Next
End Sub
 
Private Sub MyFind(ByVal src As String, ByRef rng As Range)
    Dim r As Range
    Set rng = Nothing
    For Each r In Range("F5:AJ5")
        If r.Text = src Then
            Set rng = r
            Exit Sub
        End If
    Next
End Sub
 

U3ViIOOCrOODs+ODiOODgeODo+ODvOODiOaPj+eUuzIoKQogIERpbSBjIEFzIFJhbmdlCiAgRGltIG9yZyBBcyBSYW5nZQogIERpbSBkc3QgQXMgUmFuZ2UKICAKICBGb3IgRWFjaCBjIEluIFJhbmdlKCJEODpEMjAiKQogICAgIElmIGMuVmFsdWUgPD4gIiIgVGhlbgogICAgICAgICBDYWxsIE15RmluZChjLlRleHQsIG9yZykKICAgICAgICAgQ2FsbCBNeUZpbmQoYy5PZmZzZXQoMCwgMSkuVGV4dCwgZHN0KQogICAgICAgICAgICAKICAgICAgICAgV2l0aCBBY3RpdmVTaGVldC5TaGFwZXMuQWRkTGluZShvcmcuTGVmdCArIDAsIF8KICAgICAgICAgICAgIGMuVG9wICsgNywgZHN0LkxlZnQgKyAwLCBjLlRvcCArIDcpLkxpbmUKICAgICAgICAgICAgIC5FbmRBcnJvd2hlYWRTdHlsZSA9IG1zb0Fycm93aGVhZFRyaWFuZ2xlCiAgICAgICAgICAgICAuRm9yZUNvbG9yLlJHQiA9IFJHQigwLCAwLCAxMjgpCiAgICAgICAgICAgICAuV2VpZ2h0ID0gMwogICAgICAgICBFbmQgV2l0aAogICAgIEVuZCBJZgogIE5leHQKRW5kIFN1YgoKUHJpdmF0ZSBTdWIgTXlGaW5kKEJ5VmFsIHNyYyBBcyBTdHJpbmcsIEJ5UmVmIHJuZyBBcyBSYW5nZSkKICAgIERpbSByIEFzIFJhbmdlCiAgICBTZXQgcm5nID0gTm90aGluZwogICAgRm9yIEVhY2ggciBJbiBSYW5nZSgiRjU6QUo1IikKICAgICAgICBJZiByLlRleHQgPSBzcmMgVGhlbgogICAgICAgICAgICBTZXQgcm5nID0gcgogICAgICAgICAgICBFeGl0IFN1YgogICAgICAgIEVuZCBJZgogICAgTmV4dApFbmQgU3ViCg==