В смысле код этой кнопки какой?как реализовать кнопкой
Sub Reset_DocPalette()
ResetPalette ActiveDocument
End Sub
Sub ResetPalette(ByRef iDoc As Document)
Dim CurColNo As Integer, CurPg As Page, CurSh As Shape, CurSR As ShapeRange, DoIt As Boolean
For CurColNo = iDoc.Palette.Colors.Count To 1 Step -1
DoIt = True
For Each CurPg In iDoc.Pages
Set CurSR = CurPg.Shapes.All
If CurSR.Shapes.Count > 0 Then
For Each CurSh In CurSR.Shapes
If CurSh.Fill.Type = cdrUniformFill Then
If CurSh.Fill.UniformColor.IsSame(iDoc.Palette.Colors(CurColNo)) Then DoIt = False
End If
Next CurSh
End If
Next CurPg
If DoIt Then iDoc.Palette.RemoveColor CurColNo
Next CurColNo
End Sub
Как можно побороть? Потому что ActiveDocument.AddColorsToDocPalette тоже не ищет в них.add
****
группы, поверклипы, пантоны в поиск не попадают
В смысле как это он без GUID? Такое разве может быть?без GUID
в смысле - без поисков оного ...В смысле как это он без GUID? Такое разве может быть?
Вроде в 2021.5 работает, и из поверклипов второго уровня вылавливает, и пантоны....Как можно побороть? Потому что ActiveDocument.AddColorsToDocPalette тоже не ищет в них.