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で質問しましょう!
似たような質問が見つかりました
- PDF ワードで作った文書のPDF化 5 2023/04/10 16:56
- Excel(エクセル) エクセルの数式で教えてください。 3 2023/04/17 09:25
- Word(ワード) ワードのテンプレ作れる? 1 2022/03/26 10:35
- その他(Microsoft Office) エクセルのマクロについて教えてください。 5 2023/01/21 09:39
- その他(Microsoft Office) WordやExcelで英数字のみ半角または全角にしたい 6 2022/08/03 08:18
- Word(ワード) ワードの背面や前面 5 2023/01/28 11:50
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- ソフトウェア パソコンの買い替え時、マイクロソフトでアカウントの変更(?)は? 2 2022/05/13 02:59
- その他(Microsoft Office) Excelの条件付き書式についての質問です。 2 2022/09/08 01:25
- デスクトップパソコン デスクトップパソコンのお薦めを教えてください。 19 2022/10/25 09:21
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワード、上下中央揃えにしたい...
-
目次は文書中の先頭にのみにし...
-
大学のレポートについてです。...
-
パソコンで見た時とスマホで見...
-
右側に半券のついたチケットを...
-
IMEパッドの手書き入力
-
なぜワードで開けず互換性ソフ...
-
A4縦の2枚のワードをA3にするや...
-
互換性のないSafariからみた画...
-
A4サイズ横位置というのは ワー...
-
これってワードですか? 先方が...
-
20×20のワードを37×36のtxtに...
-
ワードで作成した画像を保存す...
-
アップルに電話したけどやはり...
-
スマホが横書きになるのはなぜ...
-
http://oshiete.goo.ne.jp/qa/1...
-
ワードはページ数イコール枚数...
-
一番最初にワード開いた時文字...
-
RTFって一太郎のこと?
-
ワードが白と黒が反転してしま...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワード、上下中央揃えにしたい...
-
A4縦の2枚のワードをA3にするや...
-
ワードが白と黒が反転してしま...
-
なぜワードで開けず互換性ソフ...
-
ワードやエクセルのファイルの...
-
パソコンで見た時とスマホで見...
-
txtってパソコンでも横書きに表...
-
KADOKAWA電撃大賞の互換ソフト...
-
MicrosoftのOfficeに代わるソフ...
-
互換性のないSafariからみた画...
-
IMEパッドの手書き入力
-
右側に半券のついたチケットを...
-
ワード レイアウトの崩れ
-
ワードの差し込み文書で困って...
-
txtって、ページ番号振れないん...
-
A4サイズ横位置というのは ワー...
-
ワードのこと教えてくれるとこ...
-
KADOKAWA電撃文庫のSafariで見...
-
最近MacBookに変えました。 マ...
-
office365のワードがプリントで...
おすすめ情報