modifier un shape

Version imprimable

16/10/2012, 19h36
patricktoulon

modifier un shape

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
16/10/2012, 19h53
Invité

Bonjour

Regardes du coté de : Adjustments

Philippe
16/10/2012, 20h02
patricktoulon

re

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

Citation:

"Class Adjustments
Membre de Excel"

ou bien ca

Citation:

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

Re

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

Code:

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

16/10/2012, 20h29
patricktoulon

re

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
16/10/2012, 20h33
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
16/10/2012, 20h41
patricktoulon

re

re

ok la c'est clair jai intégré :)

je te remercie pour le coup de main

c'est résolu

au plaisir :ccool::ccool: