VB Code to draw rectangle per data size

Hello:

I have come up with different logic, please see below #2 Post from me.

Please refer to attached file, Sheet2.
I am using below code to get the rectangle's as shown.

1st the code below set the column width based in row 3.
Then it draws rectangle based on cell data in row 6.

(New logic : Instead of doing column Width, can we draw the rectangle as shown in row 20 down in attached file...

Please Login or Register  to view this content.

I need to modify the code so that each rectangle starts from begining of Column and end little less then end of that column.
I have shown in row 20 down what i am trying to accomplish.

Let me know if you have any questions.
Thanks.

Riz

Hello:

Hello:

Please refer to attached file.
I have got VB code which will draw rectangle as shown for full lenth size of 300 ( Cell G6)
As you can see i can data in row 6 : 45,65,80,60 & 50 which adds up to 300.
I need VB Code to dwaw a line to portion cut...each as shown for size shown in row 6 : 45,65,80,60 & 50
Let me know if you have any questions.
Thanks.
Riz


Thanks

Riz