удалить дубликаты
15/03/2007 20:04:33
#Link
есть файл в кореле (да не важно а чём - импортированный вмф), в котором много объектов. ну очень много. но вся картинка сдуплицирована, бывает даже по нескольку раз.
причем дубликат не единой картинки поверх, а где как - то есть в менеджере объектов просто так находящиеся сверху примерно по количеству не выделишь.
каждый дубликат над каждым объектом по одному удалять до последнего - вешалка.
есть у кого какие мысли-способы как бы это побыстрее поавтоматизированнее сделать?
а, да, мысли-способы всё таки предпочтительнее для корела.
Re: удалить дубликаты
15/03/2007 20:57:44
#Link
Вот вроде подобный вопрос всплывал:
http://www.prodtp.ru/inde...
Re: удалить дубликаты
15/03/2007 21:29:01
#Link
saШkaааааааааааааааааааааааааааааааа
забаааанен я тама
Re: удалить дубликаты
15/03/2007 21:30:10
#Link
xm, что -- не подходит? :(
Re: удалить дубликаты
15/03/2007 22:59:08
#Link
xm, там дали это:
Цитата:
Option Explicit
Sub MoveDuplicate()
ActiveDocument.PreserveSelection = False
Dim s As Shape
Dim stest As Shape
Optimization = True
For Each s In ActiveLayer.Shapes
If s.PositionX <> 0 And s.PositionY <> 0 Then
For Each stest In ActiveLayer.Shapes
If stest.PositionX <> 0 And stest.PositionY <> 0 Then
If stest.PositionX = s.PositionX And _
stest.PositionY = s.PositionY And _
stest.Type = s.Type And _
stest.SizeHeight = s.SizeHeight And _
stest.SizeWidth = s.SizeWidth And _
stest.StaticID <> s.StaticID Then
stest.SetPosition 0, 0
Exit For
End If
End If
Next stest
End If
Next s
Optimization = False
ActiveDocument.PreserveSelection = True
ActiveDocument.ActiveWindow.Refresh
End Sub
(Разместил пользователь
kerch)
Еще дали ссылку на макрос удаляющий дубликаты, но ссылка не работает, к сожалению.
Re: удалить дубликаты
16/03/2007 1:45:46
#Link
Mr.Adel
)))
мне уже saШ-енька все это в привате сохранила-переслала (kowtow) и неработающюю ссылку мы с ней тоже обкурили.
ну и тебе спасибки за труд.
а может тут у кого более свежие идеи появятся? активнее товарищи
Re: удалить дубликаты
16/03/2007 10:36:49
#Link
На тему макроса
http://powerclip.ru/modul...Цитата:
removeUnderlyingDups - убирает точные копии кривых, лежащие друг под другом
Источник: https://powerclip.ru/modules/newbb/viewtopic.php?topic_id=5046&start=0