Copy/Paste VBA


    Sponsored Links


  • 1. Microsoft Support?
    According to Microsoft's own website (on the page entitiled Product Lifecycle Dates), they claimed to be supporting Visio 2000 until the end of June 2004. But Service Release 1 was unavailable 6 months earlier. Most of the other service packs required Service Release 1. Does Microsoft keep their word? Can anyone explain this?
  • 2. How do i show a many to many relationship?
    Hi, I am creating an ERD and can set relationships 1 to x ok. I can not show many to many relationships however. The relationship line seems restricted to the fully normalised way. Is it possible to show many to many relationships? Thanks
  • 3. Copy UML diagrams from one sheet to another
    Hello people, I am using Visio 2002. I have done sequence diagrams using the UML stencil provided in Visio. I find that most of the sequence diagrams can be reused with very little changes. The problem is when I copy the diagrams, all the properties associated with the diagrams vanish. I am only able to see the diagrams with all the object names, message name, etc. disappeared. Can anyone help me find a way to copy the sequence diagrams with all the properties, object names, etc. intact. Thanks, Sharath
  • 4. Medical processes / Visio 2002
    Hello I have been looking for information about Visio 2002 templates, tencils etc. used in mapping medical processes. For example patient flow charts, mapping medical procedures and that sort of thing. They seem to be very rare or at least difficult to find, so any help is appreciated :) Yours truly
  • 5. changing line weights
    I have inserted a CAD drawing (AutoCAD R14) into VISIO 2003 Prof. Demo version and wanted to change the line weiughts of several layers. The operating sysytem for the pentium celron 2.5 ghz computer is XP Home Edition. Going through Help it indicates a clear method of doing what I need accomplished. However, it does not apply the changes as described in the help and as edited. Is it because this is a demo version or am I not finding the right commands? I appreciate anyone's assistance. Thanks,

Copy/Paste VBA

Postby RGFuaWVsIEgu » Tue, 25 Nov 2003 17:01:08 GMT

Ich will eine ganze Visio Seite kopieren mit allen Verbindungen zwischen den Shape
und deren Verklebungen (glue
Ich habs versucht mit select all, group , copy paste und ungroup auch mit der Option bei
copy/paste das es an der orignalposition positioniert werden sol
1) die Positionen stimmten nicht berei
2) die Verbindungen waren eingetragen aber nicht verglue

Was nun einer eine Version die funktioniert und einfach is

thx, mfg Daniel H.

Re: Copy/Paste VBA

Postby Mark Nelson [MS] » Wed, 26 Nov 2003 06:33:52 GMT

You might try Copy / Paste without doing the Group / Ungroup.

Are you working with a specific set of shapes?  Some Visio shapes have
protections that control their position.

(Feel free to reply in either English or German.)

Mark Nelson
Microsoft Corporation

This posting is provided "AS IS" with no warranties, and confers no rights.

den Shapes
der Option bei

Re: Copy/Paste VBA

Postby Senaj Lelic [DE MVP Visio] » Wed, 26 Nov 2003 17:51:55 GMT

Das ist recht problematisch:
1. Die korrekte Position erhtst Du mit Group (einfach ein Rechteck nehmen
.lweches genauso groist wie die Seite, das als Gruppenmitglied machenund
mit kopieren - nachher lchen.
2. Wieso werden die Verbindungen wieder gelt ? das hatte ich noch nie.
Hast Du mal ne Beispiel-datei   ?

Mit freundlichen Gren
Senaj Lelic

"Daniel H."<< XXXX@XXXXX.COM >> schrieb im Newsbeitrag

>> Ich will eine ganze Visio Seite kopieren mit allen Verbindungen zwischen
den Shapes
>> und deren Verklebungen (glue)
>> Ich habs versucht mit select all, group , copy paste und ungroup auch mit
der Option bei
>> copy/paste das es an der orignalposition positioniert werden soll
>> aber
>> 1) die Positionen stimmten nicht erein
>> 2) die Verbindungen waren eingetragen aber nicht verglued
>> Was nun einer eine Version die funktioniert und einfach ist
>> thx, mfg Daniel H.

Similar Threads:

1.Help with copy/paste VBA code

Hi folks,
I have an excel workbook where different revenue scnearios 
are entered and then you get a table and couple of graphs.
What I like to be able to do is:

I like to add a command button on a sheet where if 
clicked, it will copy a table and couple of charts, then 
paste them in an empty sheet.  

Then next time the button is clicked, it will do the same 
things but now pastes these in the next empty sheet.. and 
so on.  

how does one do this.

2.Mercy - Need help with Copy/Paste VBA

My reverse engineering skills have finally failed me =(

I need to copy rows based on a set value in Column A, to a different 
worksheet and start on the next empty row. I also need to paste special as 
the values in the source sheet are generated via formulas.

Sub CopySAP()
RowCount = 2

With Worksheets("SAPUpload").Range("a3:a200")
      Set c = .Find("1", LookIn:=xlValues)
      If Not c Is Nothing Then
       firstAddress = c.Address
        c.EntireRow.Copy _
        RowCount = RowCount + 1
        Set c = .FindNext(c)
      Loop While Not c Is Nothing And c.Address <> firstAddress
      End If
    End With

End Sub

3.copy/paste VBA

I am trying to write code that will search a sheet and 
select all of the rows that contain a certain date.  Then 
I want to copy/paste all of the rows onto a different 
I am having some trouble with this, please help!

4.Copy paste VBA

5.VBA Copy / Paste -or- Sharing between visio documents

Using Visio 2003

Many are looking for a solution for which Visio does not provide; in
comparison to Excel or Word.

I know enough of VBA to be extremely dangerous - especially when it
comes to Visio which seems quite difficult to predict.  Any additional
help would be extremely helpful.  My intention is to make Visio easier
and more efficient for my use only.  I truly do not want learn to
"program" in any language as that is not my talent nor desire.  You
will see that my inability to correctly perceive just how to get the
code working (as extracted) tells the greatest truth about my VBA

My goal is to Copy a current Visio "sheet" to a new sheet (with the
same sheet-name in a New workbook) similar to what one can do in Excel.

If the code below is not that, then could someone help me get the code
below working? The break down is in the first sub-routine which is
clearly marked as an extract.

From: "Al Edlund" < XXXX@XXXXX.COM >
References: < XXXX@XXXXX.COM >
Subject: Re: Visio2003 Pro - what means "Windows XP User Interface"
feature ?
Date: Mon, 23 May 2005 09:08:38 -0500

(I did attempt to email to the above lastname@....... but it bounced.)

The VBA as best as I could decifer was:

Sub myCopyPaste()  'This was added by me
   ' Process the pages
   strCurStep = "start process other files"
   Set pagsObj = srcDoc.Pages
   ' iterate through the collection
   For curPageIndx = 1 To pagsObj.Count
      ' retrieve the page object at the current index
      Set srcPage = pagsObj.Item(curPageIndx)

      ' Check whether the current page is a background page
      ' Display the name of all the foreground pages
      If srcPage.Background = False Then
         strCurStep = "work on foreground pages"
         ' take spaces out of the document name
         strDocName = funcReplaceStr(srcDoc.Name, " ", "", 1)

      ' create the new page
      Set tgtPage = tgtDoc.Pages.Add
      ' the target page name is the source document and page number
      tgtPage.Name = Left(funcGetTokens(strDocName,"Guideline", 1), 23)
& curPageIndx & "Exmpl"
      tgtPage.BackPage = "Background General"
      tgtPage.Background = False
      blnResult = funcCopyPageFormat(tgtPage, srcPage)
      If blnResult = False Then Debug.Print "Result Copy Page format
         strCurStep = "copy the page"
         Visio.Application.ScreenUpdatig = False
         blnResult = funcCopyPage(tgtPage, srcPage)
      If blnResult = False Then Debug.Print "Result Copy Page failed"
         Visio.Application.ScreenUpdatig = True
         ActivePage.Name = tgtPage.Name
         ' Process the background page or delete this section to ignore
the background pages
      End If
   Next curPageIndx
End Sub  'This was added by me

Private Function funcCopyPage(tgtPage As Visio.Page, srcPage As
Visio.Page) As Boolean
   Dim iObjCnt As Integer
   Dim iConCtr As Integer
   Dim iWinCtr As Integer
   Dim strPageName As String
   Dim curWin As Visio.Window
   Dim strCurStep As String
   On Error GoTo CopyPage_Err

   ' go to the source window
   strCurStep = "activate source win"
   ActivePage.Name = srcPage.Name
   ' brute force method of copy
   strCurStep = "Copy source"

   ' now go and paste it
   strCurStep = "activate target win"
   strCurStep = "set target apctive page"
   ActivePage.Name = tgtPage.Name

   funcCopyPage = True

      Exit Function


      Debug.Print "Error CopyPage Cur Step = "; strCurStep
      Debug.Print "Error CopyPage " & Err.Number & ": " &
      funcCopyPage = False
      Resume CopyPage_Exit

End Function

'   We want to copy page formats to target pages for a number of
'   which include common looks as well as maintaining integrity of
'   pages.

Private Function funcCopyPageFormat(tgtPage As Visio.Page, srcPage As
Visio.Page) As Boolean

   Dim tgtPageSheet As Visio.Shape
   Dim srcPageSheet As Visio.Shape

   On Error GoTo CopyPageFormat_Err

      Set tgtPageSheet = tgtPage.PageSheet
      Set srcPageSheet = srcPage.PageSheet

      'Debug.Print "change size type"
      tgtPageSheet.Cells("DrawingSizType").FormulaU =
      'Debug.Print "change scale type"
      tgtPageSheet.Cells("DrawingScaeType").FormulaU =
      'Debug.Print " drawing scale"
      tgtPageSheet.Cells("DrawingScae").FormulaU =
      'Debug.Print " page scale "
      tgtPageSheet.Cells("PageScale".FormulaU =
      'Debug.Print "width"
      tgtPageSheet.Cells("PageWidth".FormulaU =
      'Debug.Print "height"
      tgtPageSheet.Cells("PageHeight).FormulaU =
      'Debug.Print "route"
      tgtPageSheet.Cells("RouteStyle).FormulaU =

      funcCopyPageFormat = True

       Exit Function


       Debug.Print "Error CopyPageFormat " & Err.Number & ": " &
       funcCopyPageFormat = False
       Resume CopyPageFormat_Exit 

End Function

6. Help with VBA code to Copy / Paste Visio sheet to another Visi

7. Help with VBA code to Copy / Paste Visio sheet to another Visio fi

8. CONTROLS - Copy/Paste : inverted pasting order !

Return to VISIO


Who is online

Users browsing this forum: No registered users and 91 guest