I have attached file.
hope somebody helps..
give advice
comment
|
I have attached file.
hope somebody helps..
give advice
comment
The code is too lengthy I don't know some how please make it shorter.
Thanks.
You're right, it is too long. You need to refactor it. You have 6 bays. Create a subroutine that creates 1 bay and make it with an argument that takes an double for the length. Then you can just call the subroutine for each length, e.g.:
Also, consider using With statement, e.g.Code:CreateBay(4150)
An alternative is to create a dynamic block for 1 bay that can be stretched to the desired length.Code:With adim .TextHeight = 1 .Color = acByLayer .Layer = "0" .Update End With