FindShapes & PowerClips

[ddonnahoe]

I am working in X6. I have a rectangle shape that I am using as a powerclip frame. Within the powerclip is an artistic text shape named "example". Currently the font for the text is Arial, but I want to change it via VBA. I have tried to use

Set s = ActiveLayer.FindShape("example")

but the macro does not seem to dig into the powerclip. How can I make FindShape work within powerclips?

[shelbym]

FindShape or FindShapes will dig into groups but no powerclips, if you want to dig into powerclips you will need to make your own function. Here is a version of mine:

Function FindAllShapes() As ShapeRange
    Dim s As Shape
    Dim srPowerClipped As New ShapeRange
    Dim sr As ShapeRange, srAll 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

So if you needed to find a shape by name you could do this:

Sub FindByName()
    Dim s As Shape
    
    Set s = FindAllShapes.Shapes.FindShape("Example")
    s.Fill.UniformColor.CMYKAssign 0, 0, 100, 0
End Sub

Hope that helps,

-Shelby