1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
|
ActiveSheet.Shapes.AddLine(176.25, 181.5, 464.25, 414.75).Select
With ActiveSheet.Shapes.BuildFreeform(msoEditingCorner, 153#, 357.75)
.AddNodes msoSegmentCurve, msoEditingCorner, 165#, 339#, 178.5, 321.75, _
192#, 303.75
.AddNodes msoSegmentCurve, msoEditingCorner, 196.5, 297.75, 201#, 289.5, _
207.75, 287.25
.AddNodes msoSegmentCurve, msoEditingCorner, 220.5, 295.5, 232.5, 303#, _
246.75, 309#
.AddNodes msoSegmentCurve, msoEditingCorner, 260.25, 315#, 280.5, 318.75, _
289.5, 331.5
.AddNodes msoSegmentCurve, msoEditingCorner, 288#, 351.75, 273#, 363.75, _
269.25, 383.25
.AddNodes msoSegmentCurve, msoEditingCorner, 268.5, 395.25, 266.25, 406.5, _
263.25, 418.5
.AddNodes msoSegmentCurve, msoEditingCorner, 261.75, 424.5, 257.25, 435.75, _
257.25, 435.75
.AddNodes msoSegmentCurve, msoEditingCorner, 252#, 434.25, 249#, 434.25, _
243#, 433.5
.AddNodes msoSegmentCurve, msoEditingCorner, 216.75, 420#, 185.25, 414#, _
160.5, 397.5
.AddNodes msoSegmentCurve, msoEditingCorner, 153.75, 376.5, 185.25, 365.25, _
200.25, 356.25
.AddNodes msoSegmentCurve, msoEditingCorner, 211.5, 342#, 222.75, 330#, _
237.75, 319.5
.AddNodes msoSegmentCurve, msoEditingCorner, 243#, 311.25, 247.5, 303#, _
252.75, 294#
.AddNodes msoSegmentCurve, msoEditingCorner, 254.25, 284.25, 261.75, 276#, _
267.75, 268.5
.AddNodes msoSegmentCurve, msoEditingCorner, 284.25, 247.5, 297#, 217.5, _
325.5, 211.5
.AddNodes msoSegmentCurve, msoEditingCorner, 342.75, 213#, 354#, 219#, _
369.75, 225.75
.AddNodes msoSegmentCurve, msoEditingCorner, 397.5, 237#, 442.5, 250.5, _
452.25, 282.75
.AddNodes msoSegmentCurve, msoEditingCorner, 450#, 314.25, 433.5, 330#, _
411.75, 351.75
.AddNodes msoSegmentCurve, msoEditingCorner, 391.5, 372#, 377.25, 389.25, _
360.75, 411.75
.AddNodes msoSegmentCurve, msoEditingCorner, 350.25, 426#, 345.75, 438.75, _
339.75, 454.5
.AddNodes msoSegmentCurve, msoEditingCorner, 337.5, 459.75, 333.75, 470.25, _
333.75, 470.25
.AddNodes msoSegmentCurve, msoEditingCorner, 328.5, 504.75, 348.75, 505.5, _
374.25, 511.5
.AddNodes msoSegmentCurve, msoEditingCorner, 386.25, 510#, 397.5, 504.75, _
409.5, 501.75
.AddNodes msoSegmentCurve, msoEditingCorner, 424.5, 493.5, 443.25, 487.5, _
459#, 480.75
.AddNodes msoSegmentCurve, msoEditingCorner, 484.5, 470.25, 510.75, 453#, _
538.5, 450#
.AddNodes msoSegmentCurve, msoEditingCorner, 544.5, 448.5, 549.75, 447#, _
555.75, 447#
.ConvertToShape.Select
End With |
Partager