| Microsoft Publisher Visual Basic リファレンス |
AutoShapeType プロパティ
Shape オブジェクトのオートシェイプの種類を指定する MsoAutoShapeType クラスの定数を設定します。
| 使用できる定数は、次に示す MsoAutoShapeType クラスの定数のいずれかです。 |
| msoShapeMoon |
| msoShape16pointStar |
| msoShape24pointStar |
| msoShape32pointStar |
| msoShape4pointStar |
| msoShape5pointStar |
| msoShape8pointStar |
| msoShapeActionButtonBackorPrevious |
| msoShapeActionButtonBeginning |
| msoShapeActionButtonCustom |
| msoShapeActionButtonDocument |
| msoShapeActionButtonEnd |
| msoShapeActionButtonForwardorNext |
| msoShapeActionButtonHelp |
| msoShapeActionButtonHome |
| msoShapeActionButtonInformation |
| msoShapeActionButtonMovie |
| msoShapeActionButtonReturn |
| msoShapeActionButtonSound |
| msoShapeArc |
| msoShapeBalloon |
| msoShapeBentArrow |
| msoShapeBentUpArrow |
| msoShapeBevel |
| msoShapeBlockArc |
| msoShapeCan |
| msoShapeChevron |
| msoShapeCircularArrow |
| msoShapeCloudCallout |
| msoShapeCross |
| msoShapeCube |
| msoShapeCurvedDownArrow |
| msoShapeCurvedDownRibbon |
| msoShapeCurvedLeftArrow |
| msoShapeCurvedRightArrow |
| msoShapeCurvedUpArrow |
| msoShapeCurvedUpRibbon |
| msoShapeDiamond |
| msoShapeDonut |
| msoShapeDoubleBrace |
| msoShapeDoubleBracket |
| msoShapeDoubleWave |
| msoShapeDownArrow |
| msoShapeDownArrowCallout |
| msoShapeDownRibbon |
| msoShapeExplosion1 |
| msoShapeExplosion2 |
| msoShapeFlowchartAlternateProcess |
| msoShapeFlowchartCard |
| msoShapeFlowchartCollate |
| msoShapeFlowchartConnector |
| msoShapeFlowchartData |
| msoShapeFlowchartDecision |
| msoShapeFlowchartDelay |
| 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 |
| msoShapeNoSymbol |
| msoShapeNotchedRightArrow |
| msoShapeNotPrimitive |
| msoShapeOctagon |
| msoShapeOval |
| msoShapeOvalCallout |
| msoShapeParallelogram |
| msoShapePentagon |
| msoShapePlaque |
| msoShapeQuadArrow |
| msoShapeQuadArrowCallout |
| msoShapeRectangle |
| msoShapeRectangularCallout |
| msoShapeRegularPentagon |
| msoShapeRightArrow |
| msoShapeRightArrowCallout |
| msoShapeRightBrace |
| msoShapeRightBracket |
| msoShapeRightTriangle |
| msoShapeRoundedRectangle |
| msoShapeRoundedRectangularCallout |
| msoShapeSmileyFace |
| msoShapeStripedRightArrow |
| msoShapeSun |
| msoShapeTrapezoid |
| msoShapeUpArrow |
| msoShapeUpArrowCallout |
| msoShapeUpDownArrow |
| msoShapeUpDownArrowCallout |
| msoShapeUpRibbon |
| msoShapeUTurnArrow |
| msoShapeVerticalScroll |
| msoShapeWave |
expression.AutoShapeType
*expression * 必ず指定します。対象となるオブジェクトへの参照を返すオブジェクト式を指定します。
解説
オートシェイプは Shape オブジェクトに対応しますが、Publisher 以外の図形の AutoShapeType プロパティが値を返すこともあります。ワードアート、OLE、Web フォーム コントロール、表および図のフレーム オブジェクトは、 AutoShapeType プロパティの値として msoShapeMixed を返します。テキスト ボックスの AutoShapeType プロパティは msoShapeRectangle を返します。
使用例
次の使用例は、選択した AutoShape オブジェクトがハート型の場合は稲妻に、ハート型でない場合は 5 角形の星型に変換します。この使用例が動作するには、作業中の文書で AutoShape オブジェクトが選択されている必要があります。
Sub ShapeShift()
Dim srShift As ShapeRange
Set srShift = Application.ActiveDocument.Selection.ShapeRange
If srShift.AutoShapeType = msoShapeHeart Then
srShift.AutoShapeType = msoShapeLightningBolt
Else
srShift.AutoShapeType = msoShape5pointStar
End If
End Sub