Procedura: copiare e incollare forme in un documento di Visio

È possibile copiare a livello di codice forme contenute in una pagina di un documento e quindi incollarle in una nuova pagina dello stesso documento. Le forme possono essere incollate nella posizione predefinita (ovvero il centro della finestra attiva) o nelle stesse coordinate occupate nella pagina originale.

Operazioni di copia e incolla delle forme

Per informazioni dettagliate sul modello a oggetti, vedere la documentazione di riferimento di VBA sui metodi Microsoft.Office.Interop.Visio.Shape.DrawRectangle, Microsoft.Office.Interop.Visio.Shape.DrawOval, Microsoft.Office.Interop.Visio.Shape.Copy, Microsoft.Office.Interop.Visio.Shape.Paste e sul flag Microsoft.Office.Interop.Visio.VisCutCopyPasteCodes.visCopyPasteNormal.

Per copiare forme nel centro di un'altra pagina

• Nell'esempio seguente viene illustrato come copiare le forme dalla prima pagina e quindi incollarle nel centro della seconda pagina.

  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);
  }
  

Operazioni di copia e incolla di forme mantenendo le stesse coordinate

Per informazioni dettagliate sul modello a oggetti, vedere la documentazione di riferimento di VBA sui metodi Microsoft.Office.Interop.Visio.Shape.DrawRectangle, Microsoft.Office.Interop.Visio.Shape.DrawOval, Microsoft.Office.Interop.Visio.Shape.Copy, Microsoft.Office.Interop.Visio.Shape.Paste e sul flag Microsoft.Office.Interop.Visio.VisCutCopyPasteCodes.visCopyPasteNoTranslate.

Se occorre controllare il formato delle informazioni incollate ed eventualmente stabilire un collegamento a un file di origine (ad esempio, un documento di Microsoft Office Word), utilizzare il metodo PasteSpecial.

Per copiare le forme nella stessa posizione di un'altra pagina

• Nell'esempio seguente viene illustrato come copiare le forme dalla prima pagina e quindi incollarle nella seconda pagina mantenendo le coordinate originali.

  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);
  }
  

Vedere anche

Attività

Procedura: aggiungere forme a un documento di Visio

Concetti

Cenni preliminari sul modello a oggetti di Visio

Utilizzo di forme di Visio

Altre risorse

Soluzioni Visio