目安箱 IV

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

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

┃ ┃ ┃ ┃ ┃ ┃

89 / 277

←次へ　｜　前へ→

【203】【Illustrator & VBA】選択されたデータにラベルを貼る

ちくたく - 07/7/19(木) 18:19 -


	引用なし

	パスワード

こんにちは。
よく、作成したパスに、ラベルを貼ることをします。
いちいち、手でやるのは面倒なので、
少しでも楽になる方法として、
パスの名称をラベルとして、パスの左端にくっつけます。

Sub 選択されたデータにラベルを貼る()
　　Dim illApp As New Illustrator.Application
　　Dim myDoc As Illustrator.Document
　　Dim t As Illustrator.TextArtItem
　　Dim tmpObj As Variant
　　Dim i As Integer
　　
　　Set myDoc = illApp.ActiveDocument
　　tmpObj = myDoc.Selection
　　
　　For i = 0 To UBound(tmpObj)
　　　　Set t = myDoc.TextArtItems.Add
　　　　With t
　　　　　　.Contents = tmpObj(i).Name
　　　　　　.Translate tmpObj(i).Left, tmpObj(i).Top
　　　　End With
　　Next i
End Sub

2,191 hits