Discussion :

[Apilon]

Bonjour,

Je souhaite créer une nouvelle zone dynamique XY dans mon scatter graph, elle doit toujours partir du haut du graph pour finir sur sa partie droite, en fait son centre sera toujours l'angle en haut à droite.

Comment relier ces deux points par 1/4 de cercle dynamique et non une droite? (courbe bleue dans l'image jointe)

La propriété msoShapeArc ne permet pas de créer 1/4 de cercle à partir de l'angle du Graph.

Merci d'avance pour votre contribution

[Apilon]

Déjà pour essayer de comprendre l'agencement des points intermédiaires, j'ai récupéré ce code qui permet de faire une courbe de Bézier, mais je n'arrive pas à faire 1/4 de cercle avec...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Sub Curve()
 
 
Dim pts(1 To 7, 1 To 2) As Single
pts(1, 1) = 0 
pts(1, 2) = 0 
pts(2, 1) = 72 
pts(2, 2) = 72 
pts(3, 1) = 100 
pts(3, 2) = 40 
pts(4, 1) = 20 
pts(4, 2) = 50 
pts(5, 1) = 90 
pts(5, 2) = 120 
pts(6, 1) = 60 
pts(6, 2) = 30 
pts(7, 1) = 150 
pts(7, 2) = 90 
 
Set myDocument = ThisWorkbook.Sheets("Feuil1")
myDocument.Shapes.AddCurve SafeArrayOfPoints:=pts
 
 End Sub

[Apilon]

Je sais que le problème posé est complexe...

Pour essayer d'avancer je vous soumets une méthode intermédiaire qui me semble tout aussi complexe,

j'ai réalisé un arc parfait, mais est-il possible de faire l'inverse comme sur le fichier vba joint ?

ARC_inversé.xlsm

Merci