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 16-02-2014, 06:26
dungbtl's Avatar
dungbtl dungbtl is offline
Senior Member
 
Join Date: Apr 2004
Posts: 146
Default Jump to layer by Selected Object

Possible to make a small macro to jump to the selected objects layer?

Annoying to go to Object manager and select the layer desired
and go back to screen yada yada yada.

Possible to select an object, press an assigned shortcut key for it
and the next object created or pasted will be in the next layer?

So if im in Layer 1 and I want to goto Layer 3 and I know the object
I will select is in layer 3 I hit the sortcut key and I go from there in layer 3.

Possible?

Working in X4

Thanks
Reply With Quote
  #2  
Old 03-03-2014, 09:50
knowbodynow knowbodynow is offline
Senior Member
 
Join Date: Mar 2006
Location: Hatsukaichi near Hiroshima
Posts: 431
Default

Hi, I don't fully get what you ar after. What do you mean by "next layer". Do you want shortcuts to go to particular layers?
Reply With Quote
  #3  
Old 22-03-2014, 17:48
HeauxmBru HeauxmBru is offline
Junior Member
 
Join Date: Jan 2011
Posts: 17
Default

Is this what you were looking for?

You have various shapes on various layers. You want to add a new shape with an old shape on
another layer, but, you are not on that layer. Select the old shape and run this code.


Code:
Sub GoToObjectLayer()

    Dim lr As Layer
    Dim d As Document
    Set d = ActiveDocument
    
    Set lr = d.ActiveShape.Layer
    
    lr.Activate
    
End Sub
You "jump" to the old shape's layer. Now create the new shape.
Reply With Quote
  #4  
Old 01-04-2014, 13:51
dungbtl's Avatar
dungbtl dungbtl is offline
Senior Member
 
Join Date: Apr 2004
Posts: 146
Talking

Bru... so basic yet how would I know.

thank you.... this is great for my needs.

Forgot about this thread

Yes... i have multiple layers and adding a new object
sometimes brings me to a layer & I get that message
that layer is locked / not visible BS.

I'll assign a shortcut key to it and go from there.



Thanx again
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
Temporary Object without adding to layer davidpmp Macros/Add-ons 0 13-01-2012 21:39
X5 move selected objects to desktop layer? knowbodynow CorelDRAW/Corel DESIGNER VBA 2 10-11-2011 13:24
enable check box in form only if object is selected L_G_D CorelDRAW/Corel DESIGNER VBA 9 08-04-2009 08:17
Macro to hide all but the selected object cooloox Macros/Add-ons 2 28-09-2008 22:19
Retrieve Color Values from Selected Object Jon Lorber CorelDRAW/Corel DESIGNER VBA 2 19-08-2004 08:24


All times are GMT -5. The time now is 08:31.


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