Gewusst wie: Kopieren und Einfügen von Shapes in ein Visio-Dokument

Článek
04/28/2010

Aktualisiert: November 2007

Sie können Shapes programmgesteuert auf einer Seite eines Dokuments kopieren und auf einer neuen Seite im selben Dokument einfügen. Sie können wählen, ob Sie die Shapes an der Standardposition (in der Mitte des aktiven Fensters) oder an derselben Koordinatenposition wie auf der ursprünglichen Seite einfügen möchten.

Kopieren und Einfügen von Shapes

Weitere Informationen zum Objektmodell finden Sie in der VBA-Referenzdokumentation für die Methoden Microsoft.Office.Interop.Visio.Shape.DrawRectangle, Microsoft.Office.Interop.Visio.Shape.DrawOval, Microsoft.Office.Interop.Visio.Shape.Copy und Microsoft.Office.Interop.Visio.Shape.Paste sowie für das Microsoft.Office.Interop.Visio.VisCutCopyPasteCodes.visCopyPasteNormal-Flag.

So kopieren Sie Shapes in die Mitte einer anderen Seite

Im folgenden Beispiel wird gezeigt, wie die Shapes von der ersten Seite kopiert und in die Mitte der zweiten Seite eingefügt werden.

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

Kopieren und Einfügen von Shapes an der gleichen Position

Wenn Sie das Format der eingefügten Informationen steuern und (optional) einen Link zur Quelldatei erstellen möchten (z. B. ein Microsoft Office Word-Dokument), verwenden Sie die PasteSpecial-Methode.

So kopieren Sie Shapes mit ihrer Position auf eine andere Seite

Im folgenden Beispiel wird gezeigt, wie die Shapes von der ersten Seite kopiert und auf der zweiten Seite an ihrer ursprünglichen Koordinatenposition eingefügt werden.

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