Tekenen met maatvoering vanuit cel

[DjoeZty]

Hallo Excel-experts :thumb:,

Ik heb een berekening in Excel die maatvoering van kozijnen en plaats ervan op de muur uitrekent.
Nu wil ik dit graag visualiseren met een schematische tekening, waarbij de maten uitgelezen worden vanuit de berekening (en dus varieren met andere uitkomsten).

Is dit mogelijk en zo ja, hoe?

MVG,
DjoeZty

 

[wampier]

Ja dat kan. moeten de vierkanten automatisch ingevoegd worden of alleen aangepast?

Aanpassen:

ActiveSheet.Shapes("Rectangle 1").Height = hoogte
ActiveSheet.Shapes("Rectangle 1").Width = breedte
ActiveSheet.Shapes("Rectangle 1").Top = afstand tot bovenkant sheet
ActiveSheet.Shapes("Rectangle 1").Left = afstand tot linkerkant sheet

Om rectangle 2 onder 1 te beginnen:

ActiveSheet.Shapes("Rectangle 2").Top = ActiveSheet.Shapes("Rectangle 1").Top + ActiveSheet.Shapes("Rectangle 1").Height

 

[WHER]

Je kan er eventueel ook een xy-spreidingsgrafiek van maken, zie bijlage.

 

[jolivanes]

En teneinde raad zou je ook

Shapes.AddLine  'reference the cells with the measurements

kunnen gebruiken

 

[DjoeZty]

Re:

Ja dat kan. moeten de vierkanten automatisch ingevoegd worden of alleen aangepast?

Aanpassen:

ActiveSheet.Shapes("Rectangle 1").Height = hoogte
ActiveSheet.Shapes("Rectangle 1").Width = breedte
ActiveSheet.Shapes("Rectangle 1").Top = afstand tot bovenkant sheet
ActiveSheet.Shapes("Rectangle 1").Left = afstand tot linkerkant sheet

Om rectangle 2 onder 1 te beginnen:

ActiveSheet.Shapes("Rectangle 2").Top = ActiveSheet.Shapes("Rectangle 1").Top + ActiveSheet.Shapes("Rectangle 1").Height

Aha, en als ik de shape alleen naar links wil verschuiven op basis van de waarde in cell E14? ActiveSheet.Shapes("Rentangle 1").IncrementLeft = Range("E14") lukt niet

Een workaround via de afstand tot sheeteinde bedoel ik niet...

MVg,
DjoeZty

P.S. Excuses voor de late reactie, druk, druk, druk....

 

[DjoeZty]

Re

Je kan er eventueel ook een xy-spreidingsgrafiek van maken, zie bijlage.

Thx voor je hulp, dit is echter niet wat ik bedoel.

MVG,
DjoeZty

 

[wampier]

Dat is afhankelijk of je huidige afstand vast is,

ActiveSheet.Shapes("Rectangle 1").Left = 100 + Range("E14").value

in plaats van de "100" kun je ook tellen vanaf een bepaalde kolom. dus E14 + linkerkant kolom "G". Je hebt dus redelijk wat mogelijkheden

 

[DjoeZty]

Allen thanx, ik ga vant weekend wel stoeien.

Grtz. DjoeZty

 

[DjoeZty]

Gelukt!!!

Allen bedankt voor de waardevolle tips.
Weer een blije mede-forummer!

MVG,
DjoeZty