variabele rechthoek maken naargelang het aantal punten in Excel

[Yf]

Hallo allemaal

Ik heb een vraagje

Voor mijn eindwerk moet ik van een kabellijst een kabelplan maken. Mijn rechthoek stelt mijn kast voor en ik kan tellen hoeveel kabels ik nodig heb. Nu is mijn probleem dat mijn  rechthoek variabel gemaalt moet worden. Dus als 10 Kabels van mijn kast vertrekken moet ik mijn rechthoek dus ook 10 cm lang worden. Ik weet niet hoe hieraan moet beginnen.

Hopelijk kan iemand mij helpen want ik zit vast

Alvast bedankt

[skylar]

public sub maak_kast

dim exobj as object
set exobj = getapplication(,"excel.application")
dim exshobj as object
set exshobj = exobj.activesheet

for telexsh = 0 to 66000 'excel sheet heeft altijd maar 65... records dus kom je 66000 altijd uit
   if exshobj.cells(telexsh,1) = "" then lengte_kast = telexsh
next telexsh
'kan ook met een while loop

dim beginpnt(0 to 2) as double
beginpnt(0) = 0 : beginpnt(1) = 0 : beginpnt(2) = 0
dim eindpnt(0 to 2) as double
dim kabelbreedte  as integer
kabelbreedte = 10
eindpnt(0) = lengte_kast  * kabelbreedte : eindpnt(1) = 0 : eindpnt(2) 0

thisdrawing.modelspace.addline (beginpnt,eindpnt)

end sub


ik denk dat dit een eind in de richting zit.
als je 10 records vult in excel en je runt deze macro, zal hij er 10 herkennen en de lijn 10x kabelbreedte maken.
als je er 45 vult zal hij de kast 45xkabelbreedte maken.
je moet wel excel al actief hebben met het werkblad van die kast die je maken.

groetjes skylar