or ShapeRange
object, which must represent an AutoShape other than a line or freeform drawing. Read/write MsoAutoShapeType.
| MsoAutoShapeType can be one of these MsoAutoShapeType constants. |
| 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 |
expression.AutoShapeType
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
When you change the type of a shape, the shape retains its size, color, and other attributes.
Example
This example replaces all 16-point stars with 32-point stars in the active document.
Sub ReplaceAutoShape()
Dim docNew As Document
Dim shpStar As Shape
Set docNew = ActiveDocument
For Each shpStar In docNew.Shapes
If shpStar.AutoShapeType = msoShape16pointStar Then
shpStar.AutoShapeType = msoShape32pointStar
End If
Next
End Sub