Die Inventor FAQ wird unterstützt von:

Inventor FAQ Logo
Einsteigertipps Profitipps Probleme & Abstürze Themensammlungen Newsletter & Feed Alle Artikel Blog unterstützen
Newsletter RSS Feed Google+

20.01.2014

Blatt einer Zeichnung innerhalb der Zeichnung kopieren

Wie kann ich ein Blatt innerhalb einer Zeichnung kopieren?

In der Originalzeichnung (A) Blatt > Rechtsklick > Kopieren

image

Neue Zeichnung (B) aufmachen > Dort oben auf Zeichnung > Rechtsklick > Einfügen

image

Das so in die neue leere Zeichnung (B) kopierte Blatt wieder kopieren und auf dem gleichen Weg in die Originalzeichnung (A) einfügen.

Ergebnis: In Originalzeichnung (A) ist nun das Blatt 1 ein zweites mal eingefügt.

image

Wer den Prozess häufiger braucht, kann es mal mit diesem VBA-Makro probieren:

Sub Blatt_kopieren()
    Dim oDrawingDocument1 As DrawingDocument
    Dim oDrawingDocument2 As DrawingDocument
    Dim oSheet As Sheet
    Set oDrawingDocument1 = ThisApplication.ActiveDocument
    Set oDrawingDocument2 = ThisApplication.Documents.Add(kDrawingDocumentObject, , False)
    Set oSheet = oDrawingDocument1.ActiveSheet
    oSheet.CopyTo oDrawingDocument2
    Set oSheet = oDrawingDocument2.Sheets.Item(oDrawingDocument2.Sheets.Count)
    oSheet.CopyTo oDrawingDocument1
    oDrawingDocument2.Close True
End Sub

[Quelle VBA]

Keine Kommentare:

Kommentar veröffentlichen

War der Beitrag hilfreich oder hast du eine Ergänzung dazu?
Ist noch eine Frage offen?
Ich freue mich auf deine Rückmeldung!

Related Posts Plugin for WordPress, Blogger...
Inventor FAQ Newsletter. Emailadresse: