OberonPlace.com Forums

OberonPlace.com Forums (http://forum.oberonplace.com/index.php)
-   CorelDRAW/Corel DESIGNER VBA (http://forum.oberonplace.com/forumdisplay.php?f=16)
-   -   macro help, include groups in transp removal (http://forum.oberonplace.com/showthread.php?t=24829)

gorgo 25-03-2019 22:42

macro help, include groups in transp removal
 
I tried this but I'm still missing something.

Sub ApplyNoTransparency()

Dim sr As ShapeRange
Set sr = ActivePage.FindShapes(Type:=cdrNoTransparency = 1)
If sr.Count <> 0 Then
sr.Transparency.ApplyNoTransparency
Else
MsgBox "There are no lens objects on the current page"
End If
End Sub


All times are GMT -5. The time now is 16:24.

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