エクセル ワードアートのテキストにセルの値を表示

質問

ワードアートのテキストの内容に例えばA1のセルの値を表示したいです。
A1を変更すればワードアートもかわるように。
テキストボックスならできますよね
それをワードアートで・・・できますか？
マクロでもよいです。
よろしくおねがいします。

回答No.3

mshr1962 · ベストアンサー

まず何でもいいのでワードアートを作成します。
書式や影等の設定をします。
数式バーを選択して「=A1」と入力します。
A1の内容を修正してお確かめください。

お礼

こんなに簡単なことだったとは！
感激です。

回答No.2

TTak

以下のようになります。
ワードアートオブジェクトの名前は適宜変更してください。この例では"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 にて動作確認

お礼

ありがとうございます。
参考にして他にも応用してみます！

回答No.1

merlionXX

ワードアートの名前が、ワードアート 1　だった場合のサンプルです。

１．シートのタブを右クリックし、コードの表示
２．出てきたVisualBasicEditorに下記をコピペ

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
ActiveSheet.Shapes("WordArt 1").TextEffect.Text = Target.Value
End Sub

３．Alt+F11キーでワークシートへもどります。

お礼

早速の回答ありがとうございます。
右クリックでコードの表示の項目がなぜか出てきませんが、直接VBEを開いてやってみます。
感謝！