目安箱 IV

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

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

┃ ┃ ┃ ┃ ┃ ┃

102 / 277

←次へ　｜　前へ→

【190】IllustratorをVBAで操作するには (基本編_HelloWorld)

ちくたく

- 07/3/6(火) 10:18 -


	引用なし

	パスワード

間違って前の投稿を消してしまったので、改めて、基本編から。

前のはややこしかったので、今回は簡単に、おきまりのHelloWorldを。
Illustratorの文字列には、3種類があります。
それぞれで、HelloWorldをやってみました。

基本的には、テキストのオブジェクトを生成し、
そこにプロパティを与えるような感じです。

Sub 文字列を作成する()
　　Dim illApp As New Illustrator.Application
　　Dim myDoc As Illustrator.Document
　　Dim myTxt As Illustrator.TextArtItem
　　
　　Set myDoc = illApp.ActiveDocument
　　
　　'テキストアイテムを作成。まずは、エリアテキスト
　　Set myTxt = myDoc.TextArtItems.Add
　　myTxt.Contents = "Hello World"　　　　　　　　'// 現在時間を取得し、書き出し。
　　myTxt.Kind = aiAreaText　　　　　　 '// Kindプロパティの設定。
　　
　　'次にパステキスト
　　Set myTxt = myDoc.TextArtItems.Add
　　myTxt.Contents = "Hello World"
　　myTxt.Kind = aiPathText
　　myTxt.Translate 0, -50
　　
　　'最後にポイントテキスト
　　Set myTxt = myDoc.TextArtItems.Add
　　myTxt.Contents = "Hello World"
　　myTxt.Kind = aiPointText
　　myTxt.Translate 0, -100
End Sub

2,542 hits