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 28-02-2017, 05:57
dungbtl's Avatar
dungbtl dungbtl is offline
Senior Member
 
Join Date: Apr 2004
Posts: 138
Talking Shortcut for entire layer to be Transparent Lens ?

Is there a way to select all within a single Layer
to go transparent? maybe at a fixed %, i.e. 50%

Or maybe input a % dialog?

I've come across a few times where I had to manually
do a Trans Lens on objects with other layers open.
In object manager there's too many objects to select
and if the list is long it takes forever to catch up selecting.

Thanks all

This would be for Corel X4
Reply With Quote
  #2  
Old 02-03-2017, 01:02
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 Lots of Shapes

If you are working with a lot of shapes grouping makes things go move faster. So you could do something like this:
Code:
Sub MakeLayerTransparent()
    Dim s As Shape
    
    Set s = ActiveLayer.Shapes.All.Group
    s.Transparency.ApplyUniformTransparency 50
End Sub
Hope that helps,

-Shelby
Reply With Quote
  #3  
Old 08-03-2017, 07:18
dungbtl's Avatar
dungbtl dungbtl is offline
Senior Member
 
Join Date: Apr 2004
Posts: 138
Default

Cool...

I've added the Ungroup. This helps alot on certain layers.
Then if I need to get back to 0% no transparency, Made a 2nd instance:

s.Transparency.ApplyUniformTransparency 0

Code:
Sub MakeLayerTransparent()
    Dim s As Shape
    
    Set s = ActiveLayer.Shapes.All.Group
    s.Transparency.ApplyUniformTransparency 50
    s.Ungroup
End Sub
Works pretty good!

Thanks Shel
Reply With Quote
  #4  
Old 08-03-2017, 11:57
dungbtl's Avatar
dungbtl dungbtl is offline
Senior Member
 
Join Date: Apr 2004
Posts: 138
Default

Well, it was nice.

Try and export an object. By accident I managed
to bring an object(s) to another layer without the
transparency. No luck, you cannot remove the Lens.
Look in Object Manager
Things get ugly. Craps out shortcut keys.

So this blows, oh well went without it.

================================

Wait.... im just messing around here:
trying anything to see what works/what doesnt


Code:
Sub MakeLayerTransparent()
    Dim s As Shape
    
    Set s = ActiveLayer.Shapes.All.Group
    s.Transparency.ApplyNoTransparency
    s.Ungroup
End Sub
Woooo... Object Manager show no Lens

Basic stuff right?

Last edited by dungbtl; 08-03-2017 at 12:24.
Reply With Quote
  #5  
Old 18-04-2017, 07:15
dungbtl's Avatar
dungbtl dungbtl is offline
Senior Member
 
Join Date: Apr 2004
Posts: 138
Default

Apparently rendered CTRL+L useless
but still is assigned to Combine


Since I am here: .AI SPLITS OBJECT / TEXT !?!?!?!??!

What gives with .AI export. When I choose to export an object, better yet text
it splits the A,B,D,O etc. Other times its fine and doesnt do anything
and exports as a regular object. Then one day decides to split again.
Is it the angle rotation of the earth? Quite annoying and yo-yoey
I use .AI for its low real estate in filesize.
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
how to convert all lenses in document to no lens gorgo CorelDRAW/Corel DESIGNER VBA 2 12-01-2012 10:44
update all external linked bitmaps in entire document Jeff Harrison Code Critique 7 17-06-2007 09:54
Problem with shortcut key and macro knowbodynow Macros/Add-ons 3 10-03-2006 06:15
Change styles throughout entire document Ruffus General 0 12-12-2005 20:58
BUG - Lens Effect inside a Powerclip.jpg Hernán General 3 09-04-2005 00:06


All times are GMT -5. The time now is 10:01.


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