OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 27-09-2009, 00:34
vindaa
Guest
 
Posts: n/a
Default Previous view

I would love a macro that can take me to previous view. Is it possible ? I dont want to undo any of my creations I just want a facility to go to the previous views (not wireframe or enhance mode just the privious active view.
Reply With Quote
  #2  
Old 07-05-2012, 07:45
0meg@ 0meg@ is offline
Member
 
Join Date: Nov 2010
Posts: 37
Default

I need the same solution. Macro must return to previous view. As i understand view don't save automaticaly. So I need my macro record any changes? Which event is when i use zoom tool? Or any simple way?
Reply With Quote
  #3  
Old 08-05-2012, 07:56
ddonnahoe's Avatar
ddonnahoe ddonnahoe is offline
Senior Member
 
Join Date: Jan 2004
Location: Louisville, KY
Posts: 552
Send a message via ICQ to ddonnahoe Send a message via AIM to ddonnahoe Send a message via MSN to ddonnahoe Send a message via Yahoo to ddonnahoe
Default

Why not use the view manager docker? This does exactly what you have asked for already.
__________________
Sean
Waiting for a ride in the T.A.R.D.I.S.
Reply With Quote
  #4  
Old 08-05-2012, 13:31
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,769
Blog Entries: 9
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default View Manager

Agreed, the View Manager seems the solution. Is there something the View Manager doesn't do for you?

-Shelby
Reply With Quote
  #5  
Old 16-05-2012, 03:39
0meg@ 0meg@ is offline
Member
 
Join Date: Nov 2010
Posts: 37
Default

Idea is - when user choose Zoom tool my macro save view. On the next zoom tool activate that view will active or by pressing another key user defined.
Must I use some hook? Cause this code not working:

Sub LView()
Dim Vw As View
Dim x, y, z As Integer
z = 0
x = 0
Set Vw = ActiveDocument.Views.AddActiveView("Default")

Do While z = 0
If ActiveTool = cdrToolZoom Then
If x = 1 Then
Vw.Activate
x = 0
Else
Set Vw = ActiveDocument.Views.AddActiveView("Last")
x = 1
End If
End If
Loop
End Sub
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Wireframe vs. Enhanced View bprice CorelDRAW/Corel DESIGNER VBA 2 19-01-2009 07:11
Monitor view of full frame V resampled image view. Robbiex General 2 27-08-2007 19:59
View>Show>Page Border ddonnahoe CorelDRAW/Corel DESIGNER VBA 1 22-08-2006 14:51
exploded view macro jemmyell CorelDRAW/Corel DESIGNER VBA 13 25-08-2005 05:56
ALEX! YOU TELL ME I CAN'T VIEW YOU SOURCE.HOW ABOUT IT ? lees CorelDRAW/Corel DESIGNER VBA 6 19-07-2004 17:12


All times are GMT -5. The time now is 00:45.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com