2 返信 最新の回答 日時: Sep 25, 2007 3:05 PM ユーザー:(kanokoage)

    配置したリンク画像を自動で埋め込みにしたい

      InDeign CS2 & VBA(Access2003)

      度々お世話になります。
      配置した画像を自動で埋め込みたいと考えています。

      Dim ind1 As New InDesign.Application
      Dim doc1 As InDesign.Document
      Dim rec1 As InDesign.Rectangle
      Dim str1 As String

      Set doc1 = ind1.Documents("test.indd")
      str1 = "C:¥test.jpg"
      Set rec1 = doc1.Rectangles.Item(1)
      rec1.ContentType = idGraphicType
      rec1.Images.Item(1).Place (str1)

      以前こちらで拝読したトピックの内容を参考に、
      このような感じで配置してあるRectangleオブジェクトに
      画像を配置しているのですが、画像の状態はリンクになっています。
      この後、画像を自動で埋め込みにするコマンドか何かはないでしょうか。
      Link の Status あたりかなとも思いましたが、
      読取専用とのことで設定はできませんでした。

      よきアドバイスをよろしくお願いいたします