Shape.DeleteSection メソッド (Visio)

シェイプシートのセクションを削除します。

構文

式。 DeleteSection( _Section_ )

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

パラメーター

名前	必須 / オプション	データ型	説明
Section	必須	整数型 (Integer)	削除するセクションのインデックスを指定します。

戻り値

なし

解説

シェイプシートのセクションを削除すると、そのセクションのすべての行が自動的に削除されます。 指定したセクションが存在しない場合、何も削除されず、エラーは生成されません。

[Geometry] セクションにはインデックスがありますが、インデックスの範囲内に空白箇所を作ることはできません。そのため、[Geometry] セクションを削除すると、後続の [Geometry] セクションは上に移動します。

visSectionObject で指定されたセクションを除くすべてのセクションを削除できます (そのセクション内の行は削除できます)。

セクション インデックス値は、 VisSectionIndices の Visio タイプ ライブラリで宣言されます。

例

次の Microsoft Visual Basic for Applications (VBA) マクロは、シェイプシートのセクションを削除する方法を示します。

Public Sub DeleteSection_Example() 
 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 
 'Get the active page. 
 Set vsoPage = ActivePage 
 
 'If there isn't an active page, set the Page object 
 'to the first page of the active document. 
 If vsoPage Is Nothing Then 
 Set vsoPage = ActiveDocument.Pages(1) 
 End If 
 
 'Draw a rectangle on the active page. 
 Set vsoShape = vsoPage.DrawRectangle(1, 5, 5, 1) 
 
 'Add a scratch section to the ShapeSheet of the rectangle. 
 vsoShape.AddSection visSectionScratch 
 
 'Delete the scratch section from the ShapeSheet. 
 vsoShape.DeleteSection visSectionScratch 
 
End Sub

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

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