Shape içindeki shape Weld VBA

Merhaba arkadaşlar makro ile şu işlemi yapmak istiyorum bilen varsa öğretirse minnettar olurum.

Varsayalım ki corel çalışma alanımızda yüzlerce curve nesne var ve bunlardan bazıları iç içe duruyor. yani kare içinde kare  varmış gibi düşünün. ben diğer nesnelere hiç dokunmadan bu iç içe olan nesneleri bulup bunları weld ile birleştiren bir makro yapmak istiyorum. bunun için ne yapmam lazım.

yardımcı olacak kişiye şimdiden çok teşekkür ediyorum.

Parents
No Data
Reply
  • Dim sr As ShapeRange
    Dim srFound As ShapeRange
    Dim X As Double, Y As Double, w As Double, h As Double

    ActiveSelectionRange.ConvertToCurves
    Set sr = ActiveSelectionRange.BreakApartEx

    Do
    sr.Shapes.First.GetBoundingBox X, Y, w, h
    Set srFound = ActivePage.SelectShapesFromRectangle(X, Y, X + w, Y + h, False).Shapes.FindShapes()
    sr.RemoveRange srFound
    If srFound.Count > 1 Then srFound.Combine
    Loop Until sr.Count = 0
    ActiveDocument.CreateSelection ActivePage.Shapes.All

Children