XL 2013 msoshapesstyle(lecture ecriture)

[patricktoulon]

bonjour à tous
j'ai un trou je me souviens plus

je liste des shapes en vba et je voudrais connaitre le msostyle ou type du genre msorectangle etc....l'index me conviendrait très bien aussi

 

[M12]

Bonjour,
Il me semble que le type doit être 13

j'ai retrouvé

msoShapeRectangle        1
msoShapeParallelogram        2
msoShapeTrapezoid        3
msoShapeDiamond        4
msoShapeRoundedRectangle        5
msoShapeOctagon        6
msoShapeIsoscelesTriangle        7
msoShapeRightTriangle        8
msoShapeOval        9
msoShapeHexagon        10
msoShapeCross        11
msoShapeRegularPentagon        12
msoShapeCan        13
msoShapeCube        14
msoShapeBevel        15
msoShapeFoldedCorner        16
msoShapeSmileyFace        17
msoShapeDonut        18
msoShapeNoSymbol        19
msoShapeBlockArc        20
msoShapeHeart        21
msoShapeLightningBolt        22
msoShapeSun        23
msoShapeMoon        24
msoShapeArc        25
msoShapeDoubleBracket        26
msoShapeDoubleBrace        27
msoShapePlaque        28
msoShapeLeftBracket        29
msoShapeRightBracket        30
msoShapeLeftBrace        31
msoShapeRightBrace        32
msoShapeRightArrow        33
msoShapeLeftArrow        34
msoShapeUpArrow        35
msoShapeDownArrow        36
msoShapeLeftRightArrow        37
msoShapeUpDownArrow        38
msoShapeQuadArrow        39
msoShapeLeftRightUpArrow        40
msoShapeBentArrow        41
msoShapeUTurnArrow        42
msoShapeLeftUpArrow        43
msoShapeBentUpArrow        44
msoShapeCurvedRightArrow        45
msoShapeCurvedLeftArrow        46
msoShapeCurvedUpArrow        47
msoShapeCurvedDownArrow        48
msoShapeStripedRightArrow        49
msoShapeNotchedRightArrow        50
msoShapePentagon        51
msoShapeChevron        52
msoShapeRightArrowCallout        53
msoShapeLeftArrowCallout        54
msoShapeUpArrowCallout        55
msoShapeDownArrowCallout        56
msoShapeLeftRightArrowCallout        57
msoShapeUpDownArrowCallout        58
msoShapeQuadArrowCallout        59
msoShapeCircularArrow        60
msoShapeFlowchartProcess        61
msoShapeFlowchartAlternateProcess        62
msoShapeFlowchartDecision        63
msoShapeFlowchartData        64
msoShapeFlowchartPredefinedProcess        65
msoShapeFlowchartInternalStorage        66
msoShapeFlowchartDocument        67
msoShapeFlowchartMultidocument        68
msoShapeFlowchartTerminator        69
msoShapeFlowchartPreparation        70
msoShapeFlowchartManualInput        71
msoShapeFlowchartManualOperation        72
msoShapeFlowchartConnector        73
msoShapeFlowchartOffpageConnector        74
msoShapeFlowchartCard        75
msoShapeFlowchartPunchedTape        76
msoShapeFlowchartSummingJunction        77
msoShapeFlowchartOr        78
msoShapeFlowchartCollate        79
msoShapeFlowchartSort        80
msoShapeFlowchartExtract        81
msoShapeFlowchartMerge        82
msoShapeFlowchartStoredData        83
msoShapeFlowchartDelay        84
msoShapeFlowchartSequentialAccessStorage        85
msoShapeFlowchartMagneticDisk        86
msoShapeFlowchartDirectAccessStorage        87
msoShapeFlowchartDisplay        88
msoShapeExplosion1        89
msoShapeExplosion2        90
msoShape4pointStar        91
msoShape5pointStar        92
msoShape8pointStar        93
msoShape16pointStar        94
msoShape24pointStar        95
msoShape32pointStar        96
msoShapeUpRibbon        97
msoShapeDownRibbon        98
msoShapeCurvedUpRibbon        99
msoShapeCurvedDownRibbon        100
msoShapeVerticalScroll        101
msoShapeHorizontalScroll        102
msoShapeWave        103
msoShapeDoubleWave        104
msoShapeRectangularCallout        105
msoShapeRoundedRectangularCallout        106
msoShapeOvalCallout        107
msoShapeCloudCallout        108
msoShapeLineCallout1        109
msoShapeLineCallout2        110
msoShapeLineCallout3        111
msoShapeLineCallout4        112
msoShapeLineCallout1AccentBar        113
msoShapeLineCallout2AccentBar        114
msoShapeLineCallout3AccentBar        115
msoShapeLineCallout4AccentBar        116
msoShapeLineCallout1NoBorder        117
msoShapeLineCallout2NoBorder        118
msoShapeLineCallout3NoBorder        119
msoShapeLineCallout4NoBorder        120
msoShapeLineCallout1BorderandAccentBar        121
msoShapeLineCallout2BorderandAccentBar        122
msoShapeLineCallout3BorderandAccentBar        123
msoShapeLineCallout4BorderandAccentBar        124
msoShapeActionButtonCustom        125
msoShapeActionButtonHome        126
msoShapeActionButtonHelp        127
msoShapeActionButtonInformation        128
msoShapeActionButtonBackorPrevious        129
msoShapeActionButtonForwardorNext        130
msoShapeActionButtonBeginning        131
msoShapeActionButtonEnd        132
msoShapeActionButtonReturn        133
msoShapeActionButtonDocument        134
msoShapeActionButtonSound        135
msoShapeActionButtonMovie        136
msoShapeBalloon        137

 

[patricktoulon]

bonjour M12
merci pour le retour
mais non tu n'a pas compris
c'est pas le shapetype mais le msoshape(type) ou (style) si c'est un rectangle un triangle ,une ellipse ,etc......
je le savais mais bon jiséplus comme disais garsimore '

 

[patricktoulon]

re
heu..... oui la liste c'est facile de l'avoir c'est la méthode qu'il me faut

 

[soan]

Bonjour Patrick,

je te propose ce lien.

soan

 

[patricktoulon]

Bonjour Soan merci du retour
mais même réponse que M12 la liste je l'ai je veux la méthode
par exemple
j'ai une shape rectangle dans ma feuille
je veux que le msgbox me donne 1
msgbox shapes(1).quoi

 

[ChTi160]

Bonjour Patrick
Bonjour le Fil ,le forum
moi j'ai fais

msgbox Activesheet.Shapes("Rectangle 1").Type

et il m'affiche 1 lol
pas un expert Lol
jean marie

 

[Staple1600]

Bonjour le fil

=>patricktoulon
j'ai bon?

Sub Chapi_Shapo()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.BottomRightCell = shp.Name
shp.BottomRightCell.Offset(, 1) = shp.AutoShapeType
Next
End Sub

EDITION: Bonjour Chti160

 

[ChTi160]

re
Après vérification j'ai faux lol
je le reconnais Lol
jean marie

 

[Staple1600]

Re

Alors Jean-Marie ? On ne voit pas passer Jean-Marie.

(cf édition du message#8)

 

[ChTi160]

Oupss!
Excuses Jean marie !
jean marie

 

[Staple1600]

Re, Bonjour laurent950

???
Laurent950
C'est ce qu'on lit dans mon code VBA du message#8, non?
NB: L'aide en ligne de VBA est accessible avec F1
Inutile d'aller se "dinguer" sur codevba.com

 

[patricktoulon]

re
bon ben me voila rentré
ha ben ça fait plaisir je vais regarder tout ça

 

[patricktoulon]

ok on est bon
incroyable impossible de m'en rappeler
merci a tous et Staple1600 +1

 

[soan]

@patricktoulon

tu as le droit d'inverser et d'écrire :
« merci à tous et Staple1 +1600 »

soan