OVH Cloud OVH Cloud

macro pour rapporteur en mm

2 réponses
Avatar
serge
Bonjour,
Un copain m'a dit qu'il était possible de faire un rapporteur sous exel avec
une macro.
Ce rapporteur doit-être gradué en mm, avez-vous une idée ?
merci
serge

2 réponses

Avatar
MB
Bonjour

non un rapporteur est gradué en d° ;-)

c'est faisable avec un truc du genre

ActiveSheet.Shapes.AddShape(msoShapeOval, 100, 100, 200, 200).Select
For i = 0 To 180 Step 5
ActiveSheet.Shapes.AddLine(Cos(i / 180 * 3.1415926) * 100 + 200, -Sin(i
/ 180 * 3.1415926) * 100 + 200, Cos(i / 180 * 3.1415926) * 95 +
200, -Sin(i / 180 * 3.1415926) * 95 + 200).Select
Next

End Sub

il faut voir un masquage pour le sud du cercle

Cordialement

Michel BERTRAND
Avatar
serge
Bonjour,
Merci, je sais qu'un rapporteur est gradué en degrés ou en grades mais si on
lui impose un diamètre de 114,591 avec PI 3,14159265358979323846 , on arrive
à une circonférence de 359.99824... donc la possibilité de graduer en mm.
Est ce possible ?
serge

"MB" a écrit dans le message de
news:d772sp$go3$
Bonjour

non un rapporteur est gradué en d° ;-)

c'est faisable avec un truc du genre

ActiveSheet.Shapes.AddShape(msoShapeOval, 100, 100, 200, 200).Select
For i = 0 To 180 Step 5
ActiveSheet.Shapes.AddLine(Cos(i / 180 * 3.1415926) * 100 +
200, -Sin(i

/ 180 * 3.1415926) * 100 + 200, Cos(i / 180 * 3.1415926) * 95 +
200, -Sin(i / 180 * 3.1415926) * 95 + 200).Select
Next

End Sub

il faut voir un masquage pour le sud du cercle

Cordialement

Michel BERTRAND