Option Explicit
Sub ガントチャート描画()
Dim c As Range
Dim org As Range
Dim dst As Range
For Each c In Range("D8:D20")
If c.Value <> "" Then
Set org = Range("F5:AJ5").Find( _
What:=c.Value, LookAt:=xlWhole)
Set dst = Range("F5:AJ5").Find( _
What:=c.Offset(0, 1).Value, LookAt:=xlWhole)
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
Sub ガンチャート削除()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If sh.Type = msoLine Then
sh.Delete
End If
Next
End Sub
T3B0aW9uIEV4cGxpY2l0CgpTdWIg44Ks44Oz44OI44OB44Oj44O844OI5o+P55S7KCkKICBEaW0gYyBBcyBSYW5nZQogIERpbSBvcmcgQXMgUmFuZ2UKICBEaW0gZHN0IEFzIFJhbmdlCiAgCiAgRm9yIEVhY2ggYyBJbiBSYW5nZSgiRDg6RDIwIikKICAgICBJZiBjLlZhbHVlIDw+ICIiIFRoZW4KICAgICAgICAgU2V0IG9yZyA9IFJhbmdlKCJGNTpBSjUiKS5GaW5kKCBfCiAgICAgICAgICAgIFdoYXQ6PWMuVmFsdWUsIExvb2tBdDo9eGxXaG9sZSkKICAgICAgICAgU2V0IGRzdCA9IFJhbmdlKCJGNTpBSjUiKS5GaW5kKCBfCiAgICAgICAgICAgIFdoYXQ6PWMuT2Zmc2V0KDAsIDEpLlZhbHVlLCBMb29rQXQ6PXhsV2hvbGUpCiAgICAgICAgICAgIAogICAgICAgICAgICAKICAgICAgICAgV2l0aCBBY3RpdmVTaGVldC5TaGFwZXMuQWRkTGluZShvcmcuTGVmdCArIDAsIF8KICAgICAgICAgICAgIGMuVG9wICsgNywgZHN0LkxlZnQgKyAwLCBjLlRvcCArIDcpLkxpbmUKICAgICAgICAgICAgIC5FbmRBcnJvd2hlYWRTdHlsZSA9IG1zb0Fycm93aGVhZFRyaWFuZ2xlCiAgICAgICAgICAgICAuRm9yZUNvbG9yLlJHQiA9IFJHQigwLCAwLCAxMjgpCiAgICAgICAgICAgICAuV2VpZ2h0ID0gMwogICAgICAgICBFbmQgV2l0aAogICAgIEVuZCBJZgogIE5leHQKRW5kIFN1YgoKClN1YiDjgqzjg7Pjg4Hjg6Pjg7zjg4jliYrpmaQoKQogIERpbSBzaCBBcyBTaGFwZQogIAogIEZvciBFYWNoIHNoIEluIEFjdGl2ZVNoZWV0LlNoYXBlcwogICAgIElmIHNoLlR5cGUgPSBtc29MaW5lIFRoZW4KICAgICAgICAgc2guRGVsZXRlCiAgICAgRW5kIElmCiAgTmV4dApFbmQgU3Vi