Hi. I'm trying to make a macro that will search a document and list all instances of transparency objects in each page.
Ive started with this code but I'm sure it's missing some things.
Private Sub CommandButton1_Click()
Optimization = True
Dim sr As ShapeRange, s As Shape
Set sr = ActivePage.FindShapes()
If sr.count = 0 Then
MsgBox "No Lens objects found."
For Each s In sr
If s.Transparency.Type <> cdrNoTransparency Then s.Transparency.ApplyNoTransparency
Optimization = False
You can use CQL to find the shapes. Then loop your ShapeRange to output a list.
Dim srTransparency As ShapeRange, s As Shape
Dim p As Page
For Each p In ActiveDocument.Pages
Set srTransparency = p.Shapes.FindShapes(Query:="@com.transparency.type <> 0")
For Each s In srTransparency.Shapes
I tried all of these methods and not luck.