VBA Excel code to create hatch existing polyline or rectangular and count full and 1/2 pcs

[jalal.mousa]

Hi there, 

I am looking for VBA code that can help draw hatch and count full pcs & 1/2 pcs  on top of selected polyline or Rectangular 

I need result of counted pcs to be returned to Excel

code should get user input for size of shape such as 0.3x0.6 and input of angle such as 32.90 degree

see attached screen shot for clarity