![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.3ベストアンサー
- 回答日時:
ワードアートを右クリック、"ワードアートの書式設定"で、"Web"タブの"代わりに表示する文字列"をセル参照に利用する方法です。
セルA1を参照する場合、上記の文字列を、A1あるいはa1と記入します。
その後下のマクロtestを実行してください。表示されているワークシート上のワードアート全てに実行されます。
各々のワードアートの"代わりに表示する文字列"が、セル参照と判断されない場合には、そのワードアートは無視します。
Sub test()
Dim myShp As Shape
For Each myShp In ActiveSheet.Shapes
If IsOk(myShp) = True Then
myShp.TextEffect.Text = Range(myShp.AlternativeText).Text
End If
Next
End Sub
Function IsOk(ob As Object) As Boolean
Dim s As String
On Error GoTo p:
s = Range(ob.AlternativeText).Address
s = ob.TextEffect.Text
IsOk = True
Exit Function
p: IsOk = False
End Function
参照先のセルが空白の場合、ワードアートの文字列は消えず、何も変化が起こらないようです。
すごい!びっくりしました。
本当に奥が深い、というかさわりしか使っていない身で感激するのもおこがましいのですが、どうもありがとうございます。これもバッチリです。
No.2
- 回答日時:
#1さんのカメラ機能は推薦かも。
やはりVBAでないと書けないと思うのですが、
B2のセルに文字を入力して、変更したい図形を選択
し、マクロ実行すれば書き換わります。
コンピューターにどのシェープを変更を教えるためにここでは選択を(やっぱ面倒ですね)
sub CellShDraw()
myText = Range("B2").Value
Selection.ShapeRange.TextEffect.Text = myText
End sub
No.1
- 回答日時:
当方Excel2000を使っていますが、ワードアートからのセル参照はできないようです。
Excel2000以前でもできないでしょう。2000以降は判りませんが、おそらくその機能は付いてないと思われます。> 文字幅を自由に扱えないからそうしているのですが、
オブジェクトの選択を再考されることをお勧めします。例えば、オブジェクトの大きさと文字の大きさが比例して連動するように文字幅が変わるのでも良ければ、カメラ機能が使えます。カメラ機能は、[ツール]>[ユーザー設定]で、ツールの分類の中にボタンが用意されています。(通常、このボタンは出ていません)
あるいは、VBAを扱うことができるならば、Worksheet_Changeイベントで、特定のワードアートオブジェクトのTextを変更するようにプログラムできます。下記例はセルA1の値を"WordArt 1"に連動させるマクロです。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
ActiveSheet.Shapes("WordArt 1").TextEffect.Text = Target.Value
End If
End Sub
ただし、ワードアート側を変更しても、セルAには反映されません。
ありがとうございます
"shift"+[編集]>[図のリンク貼り付け]は見つけてあったのですが、参照元のセルに書式を設定するあたりに思い至らず、うっかりしてました。カメラ機能で対処できそうです。どうもありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードの文字の大きさについて
-
自分で作ったワードやエクセル...
-
ワードの保存について
-
http://oshiete.goo.ne.jp/qa/1...
-
どのフォントを使用しているの?
-
ワードが白と黒が反転してしま...
-
ワードでプリンターがA4までな...
-
ワードが打ち込みできません
-
アスタリスクは真ん中じゃない...
-
ワード レイアウトの崩れ
-
ワードってスマホから見ると、...
-
スマホのワードが開かないのっ...
-
20×20×30=12000文字になります...
-
Office2012の起動が遅い
-
フォントについて フォントは購...
-
ワードやエクセルのリボンについて
-
「niger fk」 ↑外国人にこの文...
-
エクスプローラーについて。
-
再起動が必要です
-
ワードでルビを振ると「単語が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
http://oshiete.goo.ne.jp/qa/1...
-
フォントについて フォントは購...
-
ワードの文字の大きさについて
-
どのフォントを使用しているの?
-
ワードが白と黒が反転してしま...
-
ワード レイアウトの崩れ
-
ワードやエクセルのリボンについて
-
ワードの保存について
-
一番最初にワード開いた時文字...
-
ワード PDF化した際、背景の...
-
ワードでルビを振ると「単語が...
-
再起動が必要です
-
42×34でレイアウト設定して文字...
-
ワードってスマホから見ると、...
-
最近MacBookに変えました。 マ...
-
Office2012の起動が遅い
-
ワードで大量の図形を一括でグ...
-
A4サイズ横位置というのは ワー...
-
参照用数字配列がいつの間か変...
-
MicrosoftのOfficeに代わるソフ...
おすすめ情報