macro select object only inside powerclip

kenzo
over 8 years ago

Hi ..

i want to create macro to select object inside powerclip and flip it, this my code

Sub flip_object_inside_powerclip()

Dim sr As ShapeRange, s As Shape
Dim sr1 As ShapeRange, sr2 As ShapeRange, sr3 As ShapeRange, sr4 As ShapeRange
Dim x As Double, y As Double, w As Double, h As Double
ActiveDocument.Unit = cdrMillimeter
If ActiveSelection.Shapes.Count = 0 Then ActivePage.Shapes.All.CreateSelection
Set sr = ActiveDocument.SelectionRange

sr.GetBoundingBox x, y, w, h
Set s = ActiveLayer.CreateRectangle2(x - 2, y - 2, w + 4, h + 4)
s.Fill.ApplyNoFill
ActiveLayer.Shapes.All.CreateSelection
sr.AddToPowerClip s, cdrTrue
s.PowerClip.EnterEditMode
Set sr = ActiveSelection.DuplicateAsRange
ActiveDocument.ReferencePoint = cdrMiddleRight
sr.Stretch -1#, 1#
sr.OrderToFront

End Sub

-----------------------------

how to select only object inside powerclip? my macro duplicate both rectangle and inside powerclip, i want just object inside powerclip

thanks

  • over 8 years ago
    SOLVED !!!

    sub tambah_serit_bro()

    Dim sr As ShapeRange, S As Shape, i As Integer
    Dim sr1 As ShapeRange, sr2 As ShapeRange, sr3 As ShapeRange, sr4 As ShapeRange
    Dim x As Double, y As Double, w As Double, h As Double
    ActiveDocument.Unit = cdrMillimeter
    If ActiveSelection.Shapes.Count = 0 Then ActivePage.Shapes.All.CreateSelection
    Set sr = ActiveSelectionRange

    sr.GetBoundingBox x, y, w, h
    Set S = ActiveLayer.CreateRectangle2(x - 2, y - 2, w + 4, h + 4)
    S.Fill.ApplyNoFill
    ActiveLayer.Shapes.All.CreateSelection
    sr.AddToPowerClip S, cdrTrue
    S.PowerClip.EnterEditMode
    sr.Shapes.All.CreateSelection
    Set sr1 = sr.Duplicate
    ActiveDocument.ReferencePoint = cdrMiddleRight
    sr1.Stretch -1#, 1#
    sr1.OrderToFront
    Set sr2 = sr.Duplicate
    ActiveDocument.ReferencePoint = cdrMiddleLeft
    sr2.Stretch -1#, 1#
    sr2.OrderToFront
    Set sr3 = ActiveDocument.CreateShapeRangeFromArray(sr, sr1, sr2).Duplicate
    ActiveDocument.ReferencePoint = cdrTopMiddle
    sr3.Stretch 1#, -1#
    sr3.OrderToFront
    Set sr4 = ActiveDocument.CreateShapeRangeFromArray(sr, sr1, sr2).Duplicate
    ActiveDocument.ReferencePoint = cdrBottomMiddle
    sr4.Stretch 1#, -1#
    sr4.OrderToFront
    S.PowerClip.LeaveEditMode
    Set S = S.ConvertToBitmapEx(cdrCMYKColorImage, False, False, 300, cdrNoAntiAliasing, True, True, 95)

    End sub

    making bleed and flip object inside powerclip

    but if anyone know to work on each selected shape

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.