Word (VBA)

Word VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10全般 : Word 2019)
リンク貼り付けしたWorksheetのセル範囲を変更したい
投稿日時: 22/04/29 11:58:33
投稿者: WinArrow
投稿者のウェブサイトに移動

VBAで、
オブジェクトとしたリンク貼り付けしたWorksheetのセル範囲(または、シート名)を変更したい
 
 
試行錯誤の経緯
(1)マクロの記録で実行してもコードが記録されない。
 
(2)セル範囲は「ファイルの項目」で指定することになるが、プロパティを探すと
「OLEObject」の「Label」にセットされているが、
このプロパティは、読取専用で変更できない。
 
(3)フィールド定義で、ブック名の後に「範囲名」を挿入すれば、可能ではあるが、
「{」「}」が消えてしまい、単なるテキストに変わってしまう。
 
ということで、暗礁に乗り上げています。
 
どなたかご存知の方は、アドバイスをお願いします。
 
 
 

投稿日時: 22/04/29 21:39:34
投稿者: WinArrow
投稿者のウェブサイトに移動

セル範囲だけを変更することができないので、
現リンク貼り付けしたオブジェクトを削除して、
再作成することにしました。
フィールド定義する方法を採用しています。

Sub リンク元の変更()
'
    ActiveDocument.InlineShapes(1).Delete

    Selection.Fields.Add Range:=Selection.Range, _
        Type:=wdFieldEmpty, _
        Text:="LINK  Excel.Sheet.12 D:\\テスト\\テスト1.xlsx 参照表1 \a \p ", _
        PreserveFormatting:=False

'Excel.Sheet.12 :拡張子が[xlsx][xlsm]
'D:\\テスト\\テスト1.xlsx:ファイルのフルパス
'参照表1:セル範囲に設定した名前
'\a:スイッチ(自動更新) '
'\p:スイッチ(図で貼付け)

End Sub

 
自己解決ということで閉じます。