Sub fixGrFill()
If ActiveShape Is Nothing Then MsgBox "Invalid selection!", vbCritical, "info": Exit Sub
fixGrFill2 ActiveSelectionRange
ActiveDocument.ClearSelection
End Sub
Private Sub fixGrFill2(r As ShapeRange)
Dim s As Shape, f As New Fill
On Error Resume Next
Set f = ActiveDocument.CreateFill()
For Each s In r
If s.Type = cdrGroupShape Then
fixGrFill2 s.Shapes.All
Else
If s.CanHaveFill And s.Fill.Type = cdrFountainFill Then
f.CopyAssign s.Fill
s.Fill.ApplyNoFill
s.Fill.CopyAssign f
End If
End If
If Not s.PowerClip Is Nothing Then fixGrFill2 s.PowerClip.Shapes.All
Next s
End Sub
Хотелось бы узнать причину, отчего так происходит? И кстати, а что именно делает макрос?
Хорошо, уже пробуюSanchos сказал(а):
О результатах сразу сообщю. Kuprianov сказал(а):
Просто все из него извлечьFog_patch сказал(а):
И обрезать потом, если нужно. Нет, девочка тоже нкакого ПоверКлипа не делала, вообще она ничего там не делает, просто визитки размещает на листе на заранее раскроенный прямоугольниками лист - затянула визитку, выделила с прямоугольником (повернула если нужно), С, Е и все!
