De naam/ het nummer van een autovorm achterhalen

[matjan75]

Hallo,

ik heb een x aantal autovormen waar ik (met hulp van dit forum, waarvoor dank) in VBA code aan gekoppeld heb. Nu zit ik met het probleem dat ik niet (meer) weet welke autovorm welke is. Ik moet in de code steeds de naam shape(x) aanpassen om te kijken of de juiste autovorm van kleur verandert. Aangezien het een hoop autovormen zijn vraag ik me af of er een makkelijker manier is om achter de naam/ het nummer van een autovorm te komen.

Alvast dank!

Matjan

 

[MrTinkertrain]

Uit de Visual Basic Help haal ik deze lijst :

msoShape24pointStar
msoShape4pointStar
msoShape8pointStar
msoShapeActionButtonBeginning
msoShapeActionButtonDocument
msoShapeActionButtonForwardorNext
msoShapeActionButtonHome
msoShapeActionButtonMovie
msoShapeActionButtonSound
msoShapeBalloon
msoShapeBentUpArrow
msoShapeBlockArc
msoShapeChevron
msoShapeCloudCallout
msoShapeCube
msoShapeCurvedDownRibbon
msoShapeCurvedRightArrow
msoShapeCurvedUpRibbon
msoShapeDonut
msoShapeDoubleBracket
msoShapeDownArrow
msoShapeDownRibbon
msoShapeExplosion2
msoShapeFlowchartCard
msoShapeFlowchartConnector
msoShapeFlowchartDecision
msoShapeFlowchartDirectAccessStorage
msoShapeFlowchartDisplay
msoShapeFlowchartDocument
msoShapeFlowchartExtract
msoShapeFlowchartInternalStorage
msoShapeFlowchartMagneticDisk
msoShapeFlowchartManualInput
msoShapeFlowchartManualOperation
msoShapeFlowchartMerge
msoShapeFlowchartMultidocument
msoShapeFlowchartOffpageConnector
msoShapeFlowchartOr
msoShapeFlowchartPredefinedProcess
msoShapeFlowchartPreparation
msoShapeFlowchartProcess
msoShapeFlowchartPunchedTape
msoShapeFlowchartSequentialAccessStorage
msoShapeFlowchartSort
msoShapeFlowchartStoredData
msoShapeFlowchartSummingJunction
msoShapeFlowchartTerminator
msoShapeFoldedCorner
msoShapeHeart
msoShapeHexagon
msoShapeHorizontalScroll
msoShapeIsoscelesTriangle
msoShapeLeftArrow
msoShapeLeftArrowCallout
msoShapeLeftBrace
msoShapeLeftBracket
msoShapeLeftRightArrow
msoShapeLeftRightArrowCallout
msoShapeLeftRightUpArrow
msoShapeLeftUpArrow
msoShapeLightningBolt
msoShapeLineCallout1
msoShapeLineCallout1AccentBar
msoShapeLineCallout1BorderandAccentBar
msoShapeLineCallout1NoBorder
msoShapeLineCallout2
msoShapeLineCallout2AccentBar
msoShapeLineCallout2BorderandAccentBar
msoShapeLineCallout2NoBorder
msoShapeLineCallout3
msoShapeLineCallout3AccentBar
msoShapeLineCallout3BorderandAccentBar
msoShapeLineCallout3NoBorder
msoShapeLineCallout4
msoShapeLineCallout4AccentBar
msoShapeLineCallout4BorderandAccentBar
msoShapeLineCallout4NoBorder
msoShapeMixed
msoShapeMoon
msoShapeNoSymbol
msoShapeNotchedRightArrow
msoShapeNotPrimitive
msoShapeOctagon
msoShapeOval
msoShapeOvalCallout
msoShapeParallelogram
msoShapePentagon
msoShapePlaque
msoShapeQuadArrowCallout
msoShapeRectangularCallout
msoShapeRightArrow
msoShapeRightBrace
msoShapeRightTriangle
msoShapeRoundedRectangularCallout
msoShapeStripedRightArrow
msoShapeTrapezoid
msoShapeUpArrowCallout
msoShapeUpDownArrowCallout
msoShapeUTurnArrow
msoShapeWave
msoShape16pointStar
msoShape32pointStar
msoShape5pointStar
msoShapeActionButtonBackorPrevious
msoShapeActionButtonCustom
msoShapeActionButtonEnd
msoShapeActionButtonHelp
msoShapeActionButtonInformation
msoShapeActionButtonReturn
msoShapeArc
msoShapeBentArrow
msoShapeBevel
msoShapeCan
msoShapeCircularArrow
msoShapeCross
msoShapeCurvedDownArrow
msoShapeCurvedLeftArrow
msoShapeCurvedUpArrow
msoShapeDiamond
msoShapeDoubleBrace
msoShapeDoubleWave
msoShapeDownArrowCallout
msoShapeExplosion1
msoShapeFlowchartAlternateProcess
msoShapeFlowchartCollate
msoShapeFlowchartData
msoShapeFlowchartDelay
msoShapeQuadArrow
msoShapeRectangle
msoShapeRegularPentagon
msoShapeRightArrowCallout
msoShapeRightBracket
msoShapeRoundedRectangle
msoShapeSmileyFace
msoShapeSun
msoShapeUpArrow
msoShapeUpDownArrow
msoShapeUpRibbon
msoShapeVerticalScroll

Ik weet niet of je daar wat aan hebt

 

[Finch]

Je kan de gewenste autovorm selecteren en deze code uitvoeren om de naam te achterhalen:

Sub Naam()
If VarType(Selection) = vbObject Then
    MsgBox Selection.Name
End If
End Sub

 

[matjan75]

De code kan ik gewoon in VBA-editor invoeren op de pagina waar de autovormen staan?

edit: het is inmiddels gelukt met de code, maar ik krijg het vermoeden dat nu de naam van de met de autovorm gelinkte freeform wordt weergegeven.

 

[Finch]

De code kan ik gewoon in VBA-editor invoeren op de pagina waar de autovormen staan?

Kan je in een gewone module plaatsen.

 

[matjan75]

Dankjewel, de code werkt en ik krijg inderdaad een messagebox met de naam van de autovorm: freeform 78. Probleem is nu nog dat de naam in de VBA code van het type "Shapes(29)" is. als ik 78 of freeform 78 invoeg werkt dit niet...

 

[Warme bakkertje]

Heb je al eens geprobeerd met de macrorecorder de handeling op te nemen ? Dan krijg je de juiste syntax en kan je van daaruit verder bouwen.

Mvg

Rudi

 

[matjan75]

Zojuist geprobeerd, maar helaas geen naam...

 

[matjan75]

Beste Tinkertrain, Finch en Warme Bakkertje,

Hartelijk dan voor jullie hulp. Het is als volgt gelukt:
Door in de code tussen haakjes in te vullen "freeform 78" werkt de code (dus: .... Shapes("freeform 78") ...

groeten,

Matjan