Lijn roteren

[TonRo]

Hallo deskundigen,

Wanneer ik een lijn teken en deze wil roteren dan selecteer ik deze lijn en klik op de rechtermuisknop. Ik ga dan naar het scherm van de instellingen en verander de rotatie.

Dit werkt allemaal, alleen nu is mijn vraag of het ook mogelijk om geen afgeronde waardes te gebruiken en hoe ik dit kan doen. Bijvoorbeeld ik wil de lijn 1,8 graad verdraaien ipv 1 of 2 graden.

Hopelijk weet hier iemand het antwoordt op.

Alvast bedankt voor jullie moeite om met me mee te denken.

Groeten,

TonRo

 

[danny147]

Beste TonRo

Ik denk dat dit niet mogelijk is in Excel, ook in de opties is die mogelijkheid er niet.

Groetjes Danny. :thumb:

 

[popipipo]

Zul je handmatig moeten doen

Ben even aan het spelen geweest:
1e lijn 10 lang
2e lijn 2 graden gedraaid
Een kant op elkaar geplaatst
afstand van andere eind is 0.4 cm (dmv 3e lijn)

Wil je 1.5 graden draaien dan moet de afstand 0.3 cm zijn
maak de 3e lijn 0.3 cm en verplaatst 2e lijn tot die 0.3 cm

Om het duidelijk te zien moet je zoom level wel opschroeven
Het verschil in eind resultaat is bijna niet te zien.

 

[TonRo]

Hallo Popipipo,

Als ik 2 lijnen van 10 cm teken waarvan er een onder een hoek van 2º staat dan kom ik op een verbindingslijn van 0,35cm. Dus ik krijg al een verschil met jou. Het zal uiteindelijk een hele puzzel worden. Het is de bedoeling dat ik op een cirkel van 180º een verdeling van 100 streepjes krijg, dus om de 1,8º.

Mogelijk dat er toch nog iemand een oplossing weet.

Groeten

TonRo

 

[popipipo]

Als ik 0.3 cm meet en jij 0.35 cm dan is het verschil zo klein dat je dus het verschil tussen 1 of 2 graden niet of nauwelijks ziet.
Waarom zou je dan precies 1.8 graden willen hebben , dat verschil is al helemaal niet te zien.
Bovendien Excel is geen teken programma maar een reken programma.
Het scheelt maar één letter maar het is een wereld van verschil.

Misschien is dit iets:
http://peltiertech.com/Excel/Charts/SpeedometerXP.html
Een tijdje geleden heb ik de grafiek voor de snelheidsmeter bekeken als ik me goed herinner is de uitslag afhankelijk van het aantal graden.
Ik vond het vrij ingewikkeld en heb er verder niet meer naar gekeken.

 

[jolivanes]

How accurate it is I don't know but you can calculate all your end points.

In cell G3, put the length of your line.
In cell H2, enter a 0 (zero)
In cell H3, enter 1.8
In cell H4, enter 3.6
In cell H5, enter 5.4
Pull down to 180

Use this to calculate your end points.

Sub CalculateEndPoints()
Application.ScreenUpdating = False
With Range("H2", Range("H" & Rows.Count).End(xlUp)).Offset(, 1)
    .FormulaR1C1 = "=Sin(RC[-1]*Pi() / 180)" & "*" & Range("G3") & "+" & Range("G2") & ""
    .NumberFormat = "0.00"
With Range("H2", Range("H" & Rows.Count).End(xlUp)).Offset(, 2)
    .FormulaR1C1 = "=Cos(RC[-2]*Pi() / 180)" & "*" & Range("G3") & "+" & Range("G1") & ""
    .NumberFormat = "0.00"
With Range("I2", Range("J" & Rows.Count).End(xlUp))
    .Value = .Value
        End With
    End With
End With
Application.ScreenUpdating = True
End Sub

Now you can have Excel draw the lines from a centre point to each end point
In Help: AddLine(BeginX, BeginY, EndX, EndY)

Misschien helpt het

 

[jolivanes]

Is the attached something?

 

[bandito bob]

Looks nice.:thumb:

 

[snb]

of

Sub DrawAllTheLines()
  For j = 0 To 180 Step 1.8
    Sheets("Sheet1").Shapes.AddLine 400, 400, Sin(j * 3.141593 / 180) * 300 + 400, Cos(j * 3.141593 / 180) * 300 + 400
  Next
End Sub

 

[TonRo]

Hallo,

Dit ziet er perfect en veelbelovend uit.

Ontzettend bedankt voor jullie hulp, ik ga hiermee aan de gang en het lijkt me sterk wil ik er nu niet uit komen, anders vraag ik nog wel eens verder.

Maar voor nu sluit ik de vraag in elk geval af want met zoveel goede opties.

Dank,

TonRo

 

[jolivanes]

snb

Your code is like the latest Ferrai while I'm still puttering around in a 1952 Anglia.

Thanks for showing me.

John

 

[snb]

Some prefer oldtimers for nostalgia's sake.

But what strikes me is that I couldn't find an equivalent for Pi in the VBA library

 

[jolivanes]

I either use

Pi()

or

Application.Pi

Regards

John

 

[jolivanes]

TonRo.

If you use snb's code but change the increment (For j = 0 To 180 Step 1.8) to something less, like 0.5 (For j = 0 To 180 Step 0.5) you'l see daylight between the lines which indicates that it is not precise. But like popipipo said, excel is not a drawing program.
It all depends on the accuracy you require.

Regards.

John