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.
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
It looks like you are writing mathematical functions or codeI don't understand this programming language because I'm not a programmer
Hello my friend
First of all, thank you for your interest.
in the screenshot you send
I was trying to code.
I've been trying the code and found the solution. The code I sent does this. The code doesn't belong to me, it does what I want. Thanks again.
This translation has been made with google translation.