目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

┃ ┃ ┃ ┃ ┃ ┃

99 / 277

←次へ　｜　前へ→

【193】オープンパスを探したいとき

ちくたく

- 07/3/23(金) 14:57 -


	引用なし

	パスワード

こんにちは、IllustratorをVBAで操作します。
時々、パスを閉じたつもりが、閉じきれていなくて、
オープンパスになってしまっている場合があります。
それを、探すスクリプトです。

探すだけで閉じるわけではありません。
閉じようと思えば、アンカーを探せば閉じることができるはずです。
個人的には、手作業でやりたいことが多いので、
探して、選択するだけで満足してます。

Sub オープンパスを探す()
　　Dim illApp As New Illustrator.Application
　　Dim myDoc As Illustrator.Document
　　Dim p As PathItem
　　
　　Set myDoc = illApp.ActiveDocument
　　
　　For Each p In myDoc.PathItems
　　　　If p.Closed = False Then
　　　　　　p.Selected = True
　　　　　　Exit Sub
　　　　End If
　　Next p
　　MsgBox "パスの検索が終了しました｡"
End Sub

2,418 hits