Comment : copier et coller des formes dans un document Visio

Article
04/28/2010

Mise à jour : novembre 2007

Vous pouvez copier par programme des formes sur une page d'un document et les coller dans une autre page du même document. Il est possible de les coller à l'emplacement par défaut (le centre de la fenêtre active) ou à un emplacement présentant les mêmes coordonnées que sur la page d'origine.

Copier et coller des formes

Pour plus d'informations sur le modèle objet, consultez la documentation de référence sur VBA pour les méthodes Microsoft.Office.Interop.Visio.Shape.DrawRectangle, Microsoft.Office.Interop.Visio.Shape.DrawOval, Microsoft.Office.Interop.Visio.Shape.Copy et Microsoft.Office.Interop.Visio.Shape.Paste et pour l'indicateur Microsoft.Office.Interop.Visio.VisCutCopyPasteCodes.visCopyPasteNormal.

Pour copier des formes au centre d'une autre page

L'exemple suivant montre comment copier les formes de la première page et les coller au centre de la deuxième page.

Me.Application.Documents.Add("")
Dim copyPage As Visio.Page
Dim pastePage As Visio.Page
Dim rectangle As Visio.Shape = Nothing
Dim oval As Visio.Shape = Nothing

Dim visioPages As Visio.Pages = Me.Application.ActiveDocument.Pages

visioPages.Add()

Try
    copyPage = visioPages(1)
    rectangle = copyPage.DrawRectangle(1.1, 2.2, 4.5, 6.7)
    oval = copyPage.DrawOval(1, 8.75, 3.5, 6.25)
Catch ex As Exception
    System.Windows.Forms.MessageBox.Show(ex.Message)
End Try

Try
    pastePage = visioPages(2)
    rectangle.Copy(Visio.VisCutCopyPasteCodes.visCopyPasteNormal)
    pastePage.Paste(Visio.VisCutCopyPasteCodes.visCopyPasteNormal)
    oval.Copy(Visio.VisCutCopyPasteCodes.visCopyPasteNormal)
    pastePage.Paste(Visio.VisCutCopyPasteCodes.visCopyPasteNormal)
Catch ex As Exception
    System.Windows.Forms.MessageBox.Show(ex.Message)
End Try

this.Application.Documents.Add("");
Visio.Page copyPage;
Visio.Page pastePage;
Visio.Shape rectangle = null;
Visio.Shape oval = null;

Visio.Pages visioPages = this.Application.ActiveDocument.Pages;

visioPages.Add();

try
{
    copyPage = visioPages[1];
    rectangle = copyPage.DrawRectangle(1.1, 2.2, 4.5, 6.7);
    oval = copyPage.DrawOval(1, 8.75, 3.5, 6.25);
}
catch (Exception ex)
{
    System.Windows.Forms.MessageBox.Show(ex.Message);
}

try
{
    pastePage = visioPages[2];
    rectangle.Copy(Visio.VisCutCopyPasteCodes.visCopyPasteNormal);
    pastePage.Paste(Visio.VisCutCopyPasteCodes.visCopyPasteNormal);
    oval.Copy(Visio.VisCutCopyPasteCodes.visCopyPasteNormal);
    pastePage.Paste(Visio.VisCutCopyPasteCodes.visCopyPasteNormal);
}
catch (Exception ex)
{
    System.Windows.Forms.MessageBox.Show(ex.Message);
}

Copier et coller des formes aux mêmes emplacements

Si vous devez contrôler le format des informations collées et (éventuellement) établir un lien vers un fichier source (par exemple, un document Microsoft Office Word), utilisez la méthode PasteSpecial.

Pour copier des formes et des emplacements de formes sur une autre page

L'exemple suivant montre comment copier les formes de la première page et les coller dans la deuxième page avec leurs emplacements de coordonnée d'origine.

Me.Application.Documents.Add("")
Dim copyPage As Visio.Page
Dim pastePage As Visio.Page
Dim rectangle As Visio.Shape = Nothing
Dim oval As Visio.Shape = Nothing

Dim visioPages As Visio.Pages = Me.Application.ActiveDocument.Pages

visioPages.Add()

Try
    copyPage = visioPages(1)
    rectangle = copyPage.DrawRectangle(1.1, 2.2, 4.5, 6.7)
    oval = copyPage.DrawOval(1, 8.75, 3.5, 6.25)
Catch ex As Exception
    System.Windows.Forms.MessageBox.Show(ex.Message)
End Try

Try
    pastePage = visioPages(2)
    rectangle.Copy(Visio.VisCutCopyPasteCodes.visCopyPasteNoTranslate)
    pastePage.Paste(Visio.VisCutCopyPasteCodes.visCopyPasteNoTranslate)
    oval.Copy(Visio.VisCutCopyPasteCodes.visCopyPasteNoTranslate)
    pastePage.Paste(Visio.VisCutCopyPasteCodes.visCopyPasteNoTranslate)
Catch ex As Exception
    System.Windows.Forms.MessageBox.Show(ex.Message)
End Try

this.Application.Documents.Add("");
Visio.Page copyPage;
Visio.Page pastePage;
Visio.Shape rectangle = null;
Visio.Shape oval = null;

Visio.Pages visioPages = this.Application.ActiveDocument.Pages;

visioPages.Add();

try
{
    copyPage = visioPages[1];
    rectangle = copyPage.DrawRectangle(1.1, 2.2, 4.5, 6.7);
    oval = copyPage.DrawOval(1, 8.75, 3.5, 6.25);
}
catch (Exception ex)
{
    System.Windows.Forms.MessageBox.Show(ex.Message);
}

try
{
    pastePage = visioPages[2];
    rectangle.Copy(Visio.VisCutCopyPasteCodes.visCopyPasteNoTranslate);
    pastePage.Paste(Visio.VisCutCopyPasteCodes.visCopyPasteNoTranslate);
    oval.Copy(Visio.VisCutCopyPasteCodes.visCopyPasteNoTranslate);
    pastePage.Paste(Visio.VisCutCopyPasteCodes.visCopyPasteNoTranslate);
}
catch (Exception ex)
{
    System.Windows.Forms.MessageBox.Show(ex.Message);
}