Roland_M
XLDnaute Barbatruc
Bien le bonjour à tous,
à cause de la résolution de l'écran je n'arrive pas à tracer une rosace régulièrement(voir image)
je ne retrouve plus la correction à apporter à mes calculs pour tracer cette rosace correctement ?
si quelqu'un a une idée elle sera bien venue ! Merci d'avance !
Ma routine:
à cause de la résolution de l'écran je n'arrive pas à tracer une rosace régulièrement(voir image)
je ne retrouve plus la correction à apporter à mes calculs pour tracer cette rosace correctement ?
si quelqu'un a une idée elle sera bien venue ! Merci d'avance !
Ma routine:
Code:
Sub Rosace()
ActiveSheet.DrawingObjects.Delete
Xcentre = 350: Ycentre = 250: R = 240: Pas = 15
For P = 0 To 360 - Pas Step Pas
X0# = Xcentre + R * Sin(P)
Y0# = Ycentre + R * Cos(P)
For I = P + Pas To 360 - Pas Step Pas
X# = Xcentre + R * Sin(I)
Y# = Ycentre + R * Cos(I)
'ActiveSheet.Shapes.AddLine X0, Y0, X, Y
With ActiveSheet.Shapes.AddLine(X0, Y0, X, Y).Line
.DashStyle = msoLineSolid
.ForeColor.RGB = RGB(120, 0, 120)
End With
Next
Next
End Sub
Pièces jointes
Dernière édition: