If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
|
Thread Tools | Display Modes |
#11
|
|||
|
|||
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. |
|
Thread Tools | |
Display Modes | |
|
|