06-04-2023
04:39 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-04-2023
04:39 PM
Thats correct @AdamAG99T & @SandmanINV . Here's an example I use:
Sub Main IDW_DuplicateSheet() Dim oDoc As DrawingDocument oDoc = ThisApplication.ActiveDocument Dim tmpDoc As DrawingDocument tmpDoc = ThisApplication.Documents.Add(kDrawingDocumentObject, , True) Dim newSheet As Sheet newSheet = oDoc.ActiveSheet.CopyTo(tmpDoc) Call newSheet.CopyTo(oDoc) tmpDoc.Close (True) End Sub