Hello everyone
I have a code I got on the net, I need you to activate the scale of all outlines, but it is only on the page. Could someone help please
Sub SCALEWITHIMAGE()ApplyScaleWithShape ActivePage.Shapes
End Sub
Private Sub ApplyScaleWithShape(ss As Shapes)Dim dDoc As Document, sh As ShapeFor Each s In ss
If Not s.PowerClip Is Nothing Then ApplyScaleWithShape s.PowerClip.Shapes
Select Case s.TypeCase cdrTextShape, cdrRectangleShape, cdrMeshFillShape, cdrPolygonShape, _cdrLinearDimensionShape, cdrEllipseShape, cdrCurveShape, cdrConnectorShape
If s.Outline.Type = cdrOutline And Not s.Outline.ScaleWithShape Thens.Outline.ScaleWithShape = TrueEnd If
Case cdrGroupShapeApplyScaleWithShape s.ShapesEnd SelectNext s
try this
Sub DocOutlinesToScale()Dim x#, y#, w#, h#, p As Page, doc As Document, sr As ShapeRange, s As Shape Set doc = Application.ActiveDocumentOptimization = TrueOn Error GoTo ErrHndler For Each p In doc.Pages p.Shapes.FindShapes.AddToSelection Set sr = ActiveSelectionRange For Each s In sr If s.Outline.ScaleWithShape = False Then s.RemoveFromSelection s.Outline.ScaleWithShape = True End If Next s Next pErrHndler:Err.ClearOptimization = False ActiveWindow.RefreshEnd Sub
just not active in the powerclip