Shape.AutoShapeType プロパティ (発行元)

Shape オブジェクトのオートシェイプの種類を指定する MsoAutoShapeType 定数を返すか設定します。

構文

式。AutoShapeType

式: Shape オブジェクトを表す変数。

注釈

AutoShapeType プロパティ値は、Microsoft Office タイプ ライブラリで宣言されている MsoAutoShapeType 定数のいずれかにすることができます。

オートシェイプは Shape オブジェクトに対応しますが、Publisher 以外の図形の AutoShapeType プロパティも値を返します。 ワードアート、OLE、Web フォーム コントロール、表、およびピクチャ フレーム オブジェクトは、AutoShapeType プロパティ値として msoShapeMixed を返す必要があります。 テキスト フレームは、その 図形 のプロパティとして msoShapeRectangle を返す必要があります。

例

この例では、選択したオートシェイプ オブジェクトを、ハートの場合は稲妻に変換し、ハートでない場合は 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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on