Compartir a través de

Método GraphicItem.Delete (Visio)

  • Artículo

Elimina un objeto GraphicItem de la colección GraphicItems de un objeto Master de tipo visTypeDataGraphic.

Nota:

Este objeto o miembro Visio solo se encuentra disponible para los usuarios con licencia de Visio Professional 2013.

Sintaxis

expresión. Eliminar

Expresión Variable que representa un objeto GraphicItem .

Valor devuelto

Nothing

Comentarios

Para poder eliminar un elemento gráfico, debe usar el método Master.Open para abrir para editar una copia del patrón de gráficos de datos al que pertenece la colección GraphicItems del elemento gráfico. Después de eliminar el elemento gráfico y realizar las ediciones que desee, use el método Master.Close para confirmar los cambios.

Ejemplo:

En la siguiente macro de Microsoft Visual Basic para Aplicaciones (VBA) se muestra cómo utilizar el método Delete para eliminar un elemento gráfico existente de la colección GraphicItems de un objeto Master. Elimina el elemento gráfico agregado más recientemente a la colección e imprime el número de elementos gráficos de la colección de la copia maestra, antes y después de la eliminación, a la ventana Inmediata. Después de que se cierra la copia maestra, también imprime el número de elementos gráficos de la colección de la propia copia maestra, para mostrar las acciones realizadas en la copia se ven reflejadas en la copia maestra.

La macro supone que hay un patrón de gráficos de datos existente en el proyecto en cuya colección GraphicItems tiene al menos un miembro. Para determinar el nombre de un patrón de gráficos de datos existente, mueva el mouse sobre el patrón en el panel de tareas Gráficos de datos de la interfaz de usuario de Visio. El patrón de este ejemplo se denomina "Gráfico de datos".

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.