Text in Powerclip

[Craig Tucker]

See Next Message...

[Craig Tucker]

I came up with this that works with no errors.
I process Powerclips first, then NonPowerclips.
Does anyone know of a better way without so many loops and finds?
Thanks, Craig

                        foreach (CorelDRAW.Shape cdrTextShape in CorelDrawApplication.ActivePage.ActiveLayer.Shapes.FindShapes(null, CorelDRAW.cdrShapeType.cdrNoShape, true, "!@com.powerclip==null"))
                        {
                            foreach (CorelDRAW.Shape cdrTextShape1 in cdrTextShape.PowerClip.Shapes.FindShapes(lcCurrentShapeName, CorelDRAW.cdrShapeType.cdrTextShape, false, ""))
                            {
                                ReplaceTextShapeAttributes(cdrTextShape1, shapeElement);
                            }
                        }

                        foreach (CorelDRAW.Shape cdrTextShape in CorelDrawApplication.ActivePage.ActiveLayer.Shapes.FindShapes(lcCurrentShapeName, CorelDRAW.cdrShapeType.cdrTextShape, false, ""))
                        {
                            {
                                ReplaceTextShapeAttributes(cdrTextShape, shapeElement);
                            }
                        }

[shelbym]

My answer is no more correct than yours, but is a different approach that you might find useful or a combination of yours and my code. Since I need to look for all shapes often I wrote a generic Function to return all shapes, including those shapes that are deeply powerclipped.

The code below calls my function and fills all text found blue. The text can be in a powerclip that is in a powerclip.

Sub TestFindAllShapes()
    FindAllShapes.Shapes.FindShapes(Type:=cdrTextShape).ApplyUniformFill CreateRGBColor(0, 0, 255)
End Sub

Function FindAllShapes() As ShapeRange
    Dim s As Shape
    Dim sr As ShapeRange
    Dim srAll As New ShapeRange, srPowerClipped As New ShapeRange

    If ActiveSelection.Shapes.Count > 0 Then
        Set sr = ActiveSelection.Shapes.FindShapes()
    Else
        Set sr = ActivePage.Shapes.FindShapes()
    End If
    
    Do
        For Each s In sr.Shapes.FindShapes(Query:="!@com.powerclip.IsNull")
            srPowerClipped.AddRange s.PowerClip.Shapes.FindShapes()
        Next s
        
        srAll.AddRange sr
        sr.RemoveAll
        sr.AddRange srPowerClipped
        srPowerClipped.RemoveAll
    Loop Until sr.Count = 0
    
    Set FindAllShapes = srAll
End Function

-Shelby

[Craig Tucker]

Ah, Nice Shelby!
Much Thanks,
Craig