次の方法で共有

GraphicItem.Delete Method

  • [アーティクル]
Visio Automation Reference

Deletes a GraphicItem object from the GraphicItems collection of a Master object of type visTypeDataGraphic.

Aa342077.vs_note(en-us,office.12).gif  Note
This Visio object or member is available only to licensed users of Microsoft Office Visio Professional 2007.

Version Information
 Version Added:  Visio 2007

Syntax

expression.Delete

expression   A variable that represents a GraphicItem object.

Return Value
Nothing

Remarks

Before you can delete a graphic item, you must use the Master.Open method to open for editing a copy of the data graphic master whose GraphicItems collection the graphic item belongs to. After you have deleted the graphic item and made whatever other edits you want to make, use the Master.Close method to commit changes.

Example

The following Microsoft Visual Basic for Applications (VBA) macro shows how to use the Delete method to delete an existing graphic item from the GraphicItems collection of a Master object. It deletes the graphic item most recently added to the collection and prints the count of graphic items in the collection of the master copy, both before and after the deletion, to the Immediate window. After it closes the master copy, it also prints the count of graphic items in the collection of the master itself, to show that actions performed on the copy get committed to the master.

The macro assumes that there is an existing data graphic master in your project in whose GraphicItems collection has at least one member. You can determine the name of an existing data graphic master by moving your mouse over the master in the Data Graphics task pane in the Visio user interface. The master in this example is named "Data Graphic."

Visual Basic for Applications 
  Public Sub Delete_Example()

Dim vsoMaster As Visio.Master
Dim vsoMasterCopy As Visio.Master
Dim intGraphicItemCount As Integer

Set vsoMaster = ActiveDocument.Masters("Data Graphic")
Set vsoMasterCopy = vsoMaster.Open

intGraphicItemCount = vsoMasterCopy.GraphicItems.Count

Debug.Print "Before delete", intGraphicItemCount
vsoMasterCopy.GraphicItems(intGraphicItemCount).Delete
Debug.Print "After delete", vsoMasterCopy.GraphicItems.Count
vsoMasterCopy.Close
Debug.Print "After close", vsoMaster.GraphicItems.Count



End Sub

See Also