Arc de cercle sous VBA excel?

Version imprimable

24/11/2006, 15h55
fredieuric

Arc de cercle sous VBA excel?
Bonjour,

J'essaye (en vain!!!) de tracer un arc de cercle sous Excel...

J'ai bien trouvé un moyen avec:
Code:

1 2 With Shapes.AddShape(msoShapeArc, 10, 10,20 ,30 ) End with
mais on obtient un arc de cercle d'angle 90°...

Moi, je voudrais:
- soit tracer un arc de cercle passant par trois points dont je connais les coordonnées (départ, milieu, arrivée);
- soit tracer un arc de cercle dont je connais le centre, le rayon l'angle de départ et celui d'arrivée.
... J'ai passé pas mal de temps sur le forum pour essayer de trouver une réponse, sans y parvenir.

Quelqu'un pourrait m'aider???

Merci d'avance!

Bonjour fredieuric,

Voici un code trouvé sur internet en anglais, je l'ai modifié à tes besoins,
Il devrait pouvoir t'aider!

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub DemiArcDeCercleVertical()
Dim x As Single
Dim y As Single
x = 258#
y = 68.25
ActiveSheet.Shapes.AddShape(msoShapeArc, x, y, 114#, 89.25).Select
Selection.ShapeRange.Adjustments.Item(2) = 270
End Sub
'La 1ère ligne dessine l'arc de coordonnées (258,62.25), largeur 114, hauteur
'89.25
'Et ensuite modifie l'angle de fin à 270°

Bien à toi,

Chewi8-)

25/11/2006, 13h18
fredieuric

Un grand merci!
26/11/2006, 12h10
fredieuric

Une autre petite question toutefois...

A quoi sert le # après le 258 ou le 114???

Merci!
26/11/2006, 13h58
AlainTech

C'est un héritage des anciens BASICs.
Cela sert au typage explicite des données.
Inutile quand les variables ont déjà été typées.

Dans le cas présent, ce n'est même pas tout-à-fait correct puisque x a été typé Single alors qu'on lui envoie un Double (#).
Le typage explicite pour un Single est !.

Autrement dit, tu peux t'en passer et ça marchera tout aussi bien.