ワードアートとセルのリンク

質問

ワードアートとセルのリンク

以下のようになります。
ワードアートオブジェクトの名前は適宜変更してください。この例では"WordArt 1"としています。
ワードアートオブジェクトの名前は名前ボックスで変更するか、複数ある場合はインデックス値でも指定することもできます。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
ActiveSheet.Shapes("WordArt 1").TextEffect.Text = Range("A1").Value
End If
End Sub

EXCEL 2000 にて動作確認

という投稿で可能である事は分かったのですが、
シートが違うセルからのリンクは出来るのでしょうか？

EXCEL2000です

回答No.1

hallo-2007 · ベストアンサー

>シートが違うセルからのリンクは出来るのでしょうか？
この意味を勘違いしているかもしれませんが。
ActiveSheet.Shapes("WordArt 1").TextEffect.Text = Range("A1").Value
の部分を
ActiveSheet.Shapes("WordArt 1").TextEffect.Text = Sheets("Sheet2").Range("A1").Value
とすれば　Sheet2のA1セルが　ワードアートに出るはずですが
Worksheet_Changeイベントですからワードアートの表示が変わるのかな？
と思います。

もし別シートにあるワードアートに　このシートのA1を入れるのであれば
Sheets("Sheet2").Shapes("WordArt 1").TextEffect.Text = Range("A1").Value
とします。

お礼

回答ありがとうございました。

XP以降だと、数式バーに=sheet1!A1といれるだけで済むので
楽なのですが、会社のこの作業をしたいPCだけ2000なもので、
ヴァージョンアップを頼んでるのですが・・・

有難うございました

回答No.2

xls88

シート名を付けてみてください。
ActiveSheet.Shapes("WordArt 1").TextEffect.Text = Sheets("Sheet3").Range("A1").Value

リンク式をセットすることもできるかもしれません。
ActiveSheet.Shapes("WordArt 1").DrawingObject.Formula = "=Sheet3!A1"

お礼

回答ありがとうございます。

リンク式をセットする事もできるかもなんですね。
今度試してみます。

これが出来るか出来ないかで、ある作業の効率がかなり変わって
きますもので、助かりました

ありがとうございました