Copying Between Pages

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

"Michael" wrote in
message ...
still curious to know the number...

Michael
"Michael" wrote in
message ...
please let me know the number and I'll give it a go on V2000.

Michael
"Al Edlund" wrote in message
...
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" wrote in
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...)
it
will work on V2000 aswell?
Can you have look at the 'value' ?

Michael

"Al Edlund" wrote in message
...
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"
wrote
in
message ...
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" wrote in message
...
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
"Mark Nelson [MS]" wrote in
message
...
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.

"David" wrote in
message
...
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.