View Single Post
  #1  
Old 25-03-2019, 22:42
gorgo gorgo is offline
Senior Member
 
Join Date: Feb 2010
Posts: 169
Default 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
Reply With Quote