Copying Between Pages

[David]

I often want to copy items between different pages and have the copied items appear on exactly the same place as the page I copied them from. I would assume this would/should be Visio's default behavior but that's not the way it works unless there's a setting I'm missing

Is there a simple way for me to copy items between pages and have them appear on the same place on the page I copy them to

Many thanks.

 

[Mark Nelson [MS]]

Hi this is a popular request, but there's no direct support in Visio for
that. To be precise on copy, I often will drag out a guide point (from the
ruler intersection) and place it on the upper left corner of the document.
Then I select all, copy and paste to a new page. Now I can reposition the
selection until the guide point once again lines up with the corner of the
document.

--
Mark Nelson
Microsoft Corporation

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

I often want to copy items between different pages and have the copied

items appear on exactly the same place as the page I copied them from. I
would assume this would/should be Visio's default behavior but that's not
the way it works unless there's a setting I'm missing.

Is there a simple way for me to copy items between pages and have them

appear on the same place on the page I copy them to?

 

[David]

Wow, that's a great workaround. Thanks

Hard to believe the feature isn't built into the program. Would save tons of time. Hopefully we'll see it in the next version. In the mean time your tip and background pages will do the job

Thanks again.

 

[Al Edlund]

another way of doing it is to have two simple macros based on adding a
simple parameter to the copy / paste command visCopyPasteNoTranslate

Sub mcrMyPaste()

Application.ActiveWindow.Page.Paste visCopyPasteNoTranslate


End Sub

Sub mcrMyCopy()

ActiveWindow.DeselectAll
ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(1),
visSelect
Application.ActiveWindow.Selection.Copy visCopyPasteNoTranslate

End Sub


Al

 

[Michael]

Al,
I tried this on Visio 2000 VBA and comes up with undefined variable:
visCopyPasteNoTranslate

Doesn't this work with Visio 2000?

Michael

 

[Al Edlund]

I haven't tested it at v2000. The variable definition comes when you
reference the appropriate library (my current project uses both visio
library and vision integeration).
Al

 

[Michael]

Is it a number or a string and what's the 'value' on your end?
may be if I use the 'value' (let's assume it is something like 1205...) it
will work on V2000 aswell?
Can you have look at the 'value' ?

Michael

 

[Al Edlund]

well, it's definitely a value (integer). The real issue is whether or not
the v2000 library has that function in it. The reason I use it is because if
you remain consistent between the copy and paste, the picture shows up in
the correct position. You might consider using the object explorer to see if
the variable is in any of the referenced libraries.
Al

 

[Michael]

please let me know the number and I'll give it a go on V2000.

Michael

 

[Michael]

still curious to know the number...

Michael

please let me know the number and I'll give it a go on V2000.

Michael
because see 1205...)

 

[Michael]

ok... V2002 shows the value as 1, so the following perfectly works on V2002:

Sub mcrMyPaste()
Application.ActiveWindow.Page.Paste 1
End Sub

Sub mcrMyCopy()
ActiveWindow.SelectAll
Application.ActiveWindow.Selection.Copy 1
ActiveWindow.DeselectAll
End Sub

On V2000 however this does not work :-(((

Thanks for the hint though!

Michael

still curious to know the number...

Michael

please let me know the number and I'll give it a go on V2000.

Michael

well, it's definitely a value (integer). The real issue is whether or not
the v2000 library has that function in it. The reason I use it is

because

if
you remain consistent between the copy and paste, the picture shows up in
the correct position. You might consider using the object explorer to

see

if
the variable is in any of the referenced libraries.
Al
message Is it a number or a string and what's the 'value' on your end?
may be if I use the 'value' (let's assume it is something like

1205...)