Shape içindeki shape Weld VBA

kurgucu
over 4 years ago

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
  • over 2 years ago

    merkezleri ayni olan (yani ic ice) daireleri kombine etmek icin bir kod:

    Private Sub CombineShapes()
    Dim sr As ShapeRange, src As New ShapeRange, z&, m&
        Set sr = ActiveSelectionRange
        Optimization = True
        For z = 1 To sr.Count - 1
            For m = z + 1 To sr.Count
                If Round(sr(z).centerX, 2) = Round(sr(m).centerX, 2) Then
                    If Round(sr(z).centerY, 2) = Round(sr(m).centerY, 2) Then
                        src.Add sr(z): src.Add sr(m)
                        src.Combine:  sr.Remove m: src.RemoveAll
                        Exit For
                    End If
                End If
            Next m
        Next z
        Optimization = False: Refresh
    End Sub
Children
No Data

© 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.