lock/unlock contents to powerclip

[qsedftghk]

Малюсенький (я бы даже сказал, ни о чём) макрос для блокировки (locks())/разблокировки (unlocks()) содержимого выделенных поверклипов.

Sub unlocks()
 Dim gh As Shape
 On Error Resume Next
 For Each gh In ActiveSelection.Shapes
 gh.PowerClip.ContentsLocked = False
 Next gh
End Sub

Sub locks()
 Dim gh As Shape
 On Error Resume Next
 For Each gh In ActiveSelection.Shapes
 gh.PowerClip.ContentsLocked = True
 Next gh
End Sub

 

[SEX_LENIVEC]

Ответ: lock/unlock contents to powerclip

А хм...зачем это?

 

[qsedftghk]

Ответ: lock/unlock contents to powerclip

Повторяю.

Выделяешь, например, 100 поверклипов и запускаешь макрос и вот они все разблокированы (или наоборт). А без макроса пришлось бы каждый поверклип тыкать отдельно. А уж зачем, это другой вопрос. Тебе не нужно, дак и хорошо, а мне, например, приходится с этим сталкиваться.