VBA: Selecting Objects w/ Outline as Query

Hello,

I am a graphic designer and (very) amateur macro writer. I am looking to select all objects in a given page that have an outline in order to scale them with a selection when it is resized. (Yes this is another issue with global scaling). I am working with x6 and have gotten this far with my code:

ActivePage.DesktopLayer.Editable = False
Dim sr As ShapeRange
Set sr = ActivePage.Shapes.FindShapes( _
Query:="@Outline.type = 'all'")
sr.SetProperties ScaleWithShape:=cdrTrue
ActivePage.Shapes.All.CreateSelection
ActiveDocument.ReferencePoint = cdrCenter
ActiveSelection.SetSize 6#, 6#
ActiveSelection.AlignAndDistribute cdrAlignDistributeHAlignLeft, cdrAlignDistributeVAlignTop, cdrAlignShapesToEdgeOfPage, cdrDistributeToSelection, False, cdrTextAlignBoundingBox
ActivePage.DesktopLayer.Editable = True

The highlight is where the code is returning:

Run-time error '438'

Object doesn't support this property or method

The debugging skills are not strong with this one. Help me Obi Wan Kenobi, you're my only hope.