目安箱 IV

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

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

┃ ┃ ┃ ┃ ┃ ┃

95 / 277

←次へ　｜　前へ→

【197】パスのところに、レイヤの名称を書く【Illustrator & VBA】

ちくたく - 07/6/5(火) 14:03 -


	引用なし

	パスワード

こんにちは。
標記、そのままです。

1番目のレイヤ (変数lNumの「値」番目) に含まれる、
レイヤの中にあるパスの上にレイヤの名称を書き出します。
個人的には、よく使うものです。

Sub パスのところに、レイヤの名称を書く()
　　Dim illApp As New Illustrator.Application
　　Dim myDoc As Illustrator.Document
　　Dim p As Illustrator.PathItem
　　Dim t As Illustrator.TextArtItem
　　Dim pos As Variant
　　Dim l As Illustrator.Layer
　　Dim lNum As Integer
　　
　　Set myDoc = illApp.ActiveDocument
　　lNum = 1
　　
　　For Each l In myDoc.Layers(lNum).Layers
　　　　For Each p In l.PathItems
　　　　　　Set t = myDoc.TextArtItems.Add
　　　　　　pos = p.Position
　　　　　　With t
　　　　　　　　.Contents = p.Layer.Name
　　　　　　　　.Translate pos(0), pos(1)
　　　　　　End With
　　　　Next p
　　Next l
End Sub

2,070 hits