Discussion :

[patricktoulon]

re bonjour a tous

voila je reviens encore avec un souci de shapes

je voudrais savoir comment par macro je peux modifier l'arrondi des rectangle a coin arrondi
manuellement on le fait en déplaçant le petit carré jaune

quelqu'un a une idée par ce la j'ai cherché je n'ai rien trouvé


merci pour le retour

au plaisir

[Invité]

Bonjour

Regardes du coté de : Adjustments

Philippe

[patricktoulon]

bonsoir Philipe Jochman

je te remercie pour le retour
j'ai tapez "F2" et ajustement ne me dis pas grand chose
voila ce que f2 me dit

"Class Adjustments
Membre de Excel"

ou bien ca

Property Adjustments As Adjustments
Lecture seule
Membre de Excel.ShapeRange

j'avoue que ca ne m'aide pas du tout

heu... quézako ca?????

merci pour le retour

[Invité]

Re

Colle ce code dans un module et exécute le :

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
Public Sub TestShape()
    ' déclaration
    Dim objWks As Worksheet
    Dim objShape As Shape
 
    ' affectation
    Set objWks = ActiveWorkbook.Worksheets("Feuil1")
    ' on crée une première shape
    Set objShape = objWks.Shapes.AddShape(msoShapeRoundedRectangle, 100, 100, 100, 100)
 
    ' on crée une deuxième shape identique plus loin
    Set objShape = objWks.Shapes.AddShape(msoShapeRoundedRectangle, 300, 100, 100, 100)
    ' on modifie l'arrondi du 2 ème rectangle
    objShape.Adjustments(1) = 0.1
 
End Sub

On crée deux formes arrondis identiques, et dans la deuxième on modifie l'arrondi.

Il faut modifier la valeur de 0 à 1 il me semble.

Testé sous Excel 2007.

Philippe

[patricktoulon]

rebonsoir Philippe Jochmans


ok ca fonctionne
mais la variable 1 entre les parenthezes veut dire quoi???
et efectivement c'est de 0 a 1 pour le degré comme pour le "msogradient"

merci pour le tuyaux je l'ai cherché celui la ....


au plaisir

[Invité]

Re

Le 1 c'est un item, c'est au cas où il y ait plusieurs losanges jaunes, il faut les nommer, il me semble que c'est le cas pour certaines figures.

A tester sur le rectangle à 4 flèches.

Philippe