[[20070309111022]]　『画像の上に文字が来るようにしたい』（モコ）　ページの最後に飛ぶ

『画像の上に文字が来るようにしたい』（モコ）

はじめて質問します。

結婚式の席辞表を作っています。テーブルに見立てた円の画像を貼り付けることは
できたのですが、出席者の名前に画像がかぶってしまいます。

画像の上に出席者の文字が表示されるようにしたいのでやり方があったら教えて
ください。

 名前はセルに書かれているのですか？
 ワードアートなどのシェイプですか？
 (MARBIN)

早速ありがとうございます。

セルに書いたのですが。

 エクセルのバージョンは何ですか？
 名前もシェイプにしてしまったほうが簡単な気がします。
 (MARBIN)

 おっと、どんどん衝突。（笑）
 せっかく書いたので、載せておきます。

 モコさん。投稿の際は、その都度ご署名をお願いしますね。

 描いたのが単なる白い丸い円であれば、
 右クリック　オートシェイプの書式設定(O)
 　[色と線]タブの
 　　塗りつぶし
 　　　色(C): [ 塗りつぶしなし　▼ ]
       　        ↑これに変更。

 で、下の文字が見えるようになります。

 何かの画像であれば、透明度を上げてごまかすか
 現在入力してあるセル（範囲）をコピーし
 Shiftを押しながらメニューの　編集(E)を開くと
 「図の貼り付け」や「図のリンク貼り付け」が出てきますので
 図として貼り付けた後、下に表示したい図の上に配置します。
 （順序の問題で、これまた下になるかもしれませんので　その時は
   右クリック　順序(J)　で、順番を入れ替えてみてください。）

 (HANA)

 いまさら、でしかもかぶってますがそのままアップ。

 あっそうか。
 円の塗りつぶしを"無し"に
 する、でいかがでしょう？
 セルの文字が透過するはずです。
 (MARBIN)

 文字をテキストボックスの「塗り無、線無」で乗せては
 ダメでしょうか？

 円卓のようですが、ワードアートなら文字も放射状にできますよ

 (Ohagi)

すみません。バージョンの見方がよくわかりません。
WindowsはXPです。

名前もオートシェイプにする方法もあるのですね！！

ああ！！透明度を上げるという方法もあるのですね。
ちょっとがんばってみます。

みなさん本当にありがとうございました。

（もこ）←先ほどは署名なしで失礼しました。

 >バージョンの見方がよくわかりません
  WindowsXPなら、2002かな…？
  EXCELのヘルプメニューに、「バージョン情報」が
  ありますので確認してみて下さい
  バージョンによって、回転角度の微調整ができるもの
  できないもの と差が出てきますので…

 (Ohagi)

Ohagiさん！！2003でした！！
円は、描いたというより、貼った画像だったので、塗りつぶしをみたら
もとから「なし」でした。
テキストも図にして貼りつける方法にします。

やってみたら、できそうです。
本当によかったです。

（もこ）

 衝突。（笑）
 まぁ、リンク先があるのでそのまま載せます。
 以下衝突前の文章。

 もこさん、スレお借りします。

 Ohagiさんの仰っている
 >文字も放射状
 と言うのは、どれのことですかね？
（ドーナツ状のやつ？）

 円卓で、たとえば
　　あ
　く　い
き　　　う
　か　え
　　お
 の８人を丸で囲みたい場合、
 ひとつずつ名前を書いて　印刷しながら位置を調節するよりも
 セルの表組みを利用してレイアウトを作って
 図の貼り付けのほうが、崩れにくい気がしますが。
 ちなみに、図の貼り付けは↓を参考に。
https://www.excel.studio-kazu.jp/tips/0021/

 逆に、ひとつずつの方が融通が利いていいかな？

 (HANA)

 >文字も放射状
 う～ん、伝わりにくいですかね…(^_^;)
 寄せ書きみたいな座席表っていえば分かりやすいかな？
 Shiftを押しながらで、15度(？)ずつ回転がかかりましたよね？

 ダミーの名前で取り合え名前を人数分作成し、回転は↓をご参考にして見て下さい
 ワードでお絵かき
http://www11.ocn.ne.jp/~e-homew/word/oekaki-3_4.html

 (Ohagi)

 なんだか、変な事を言っているようなので
 自己削除します。
 失礼しました。
 「文字を回転できる」と言う認識にとどめてきます。

 Ohagiさん、ありがとうございました。

 (HANA)

 きゃっ(>_<)　ウダウダしている間になくなっちゃいました…
 がっ、書いちゃったからアップします（*^_^*）

 >上の楕円の周囲に形良く並べていきます補助線を引いても良いでしょう
 この後ろの「赤いＰ」の文字は、クリックしましたか？
 ↓のページに移り参考になると思います
 このHPは「赤いＰ」が参照ページのリンクのみたいです

 No.1　*--　補助線3　--*
http://www11.ocn.ne.jp/~e-homew/word/benri-setu-3.html

 図形の調整→回転/反転→自由に回転　でShiftを押しながらでも対応できると思います
 この場合でしたらもっと細かい設定が可能かと…

 >印刷した時にずれませんか？
 ずれそうなものは全て「図」にしてしまえばずれないと思いますが…
 後での修正等を考えると「印刷用」のデータを作成して図にするとかの方が良さそうですね？

 (Ohagi)

 >文字も放射状
 こんな感じですかね。

http://gakuen.gifu-net.ed.jp/~contents/syou_shyakai/h15/ikki/content/08.html

 (MARBIN)

 MARBINさん、ありがとうございます
 私のイメージは、そんな感じです(*^_^*)

 しかし、連判状とは　渋いですね～♪ヽ(^。^)ノ

 (Ohagi)

 あぁぁ、ありがとうございます。>MARBINさん＆Ohagiさん
 でも、「寄せ書き」で分かりましたよ♪

 手順の方は、呼び出されてしまったので　夜にでももう少し研究してみます。
（そこも見たのですがどうもうまく行かないので・笑）

 (HANA)

 私は、手動だと微調整が聞かないというか面倒なんで、
 こんなものをボタンに登録して使ってました。つい最近。
 (Jaka)

 Sub 右()
    If TypeName(Selection) <> "Rectangle" Then Exit Sub
    If Selection.ShapeRange.Type <> 1 Then Exit Sub
    Selection.ShapeRange.IncrementLeft 0.75
 End Sub
 Sub 左()
    If TypeName(Selection) <> "Rectangle" Then Exit Sub
    If Selection.ShapeRange.Type <> 1 Then Exit Sub
    Selection.ShapeRange.IncrementLeft -1.5
 End Sub
 Sub 上()
    If TypeName(Selection) <> "Rectangle" Then Exit Sub
    If Selection.ShapeRange.Type <> 1 Then Exit Sub
    Selection.ShapeRange.IncrementTop -0.75
 End Sub
 Sub 下()
    If TypeName(Selection) <> "Rectangle" Then Exit Sub
    If Selection.ShapeRange.Type <> 1 Then Exit Sub
    Selection.ShapeRange.IncrementTop 0.75
 End Sub
 Sub 右回転()
    If TypeName(Selection) <> "Rectangle" Then Exit Sub
    If Selection.ShapeRange.Type <> 1 Then Exit Sub
    Selection.ShapeRange.IncrementRotation 1
 End Sub
 Sub 左回転()
    If TypeName(Selection) <> "Rectangle" Then Exit Sub
    If Selection.ShapeRange.Type <> 1 Then Exit Sub
    Selection.ShapeRange.IncrementRotation -1
 End Sub
 '大きさでなく拡大率、縮小率を指定。
 Sub 縦拡大()
    If TypeName(Selection) <> "Rectangle" Then Exit Sub
    If Selection.ShapeRange.Type <> 1 Then Exit Sub
    Selection.ShapeRange.ScaleWidth 1.01, msoFalse, msoScaleFromTopLeft
 End Sub
 Sub 横拡大()
    If TypeName(Selection) <> "Rectangle" Then Exit Sub
    If Selection.ShapeRange.Type <> 1 Then Exit Sub
    Selection.ShapeRange.ScaleHeight 1.01, msoFalse, msoScaleFromBottomRight
 End Sub
 Sub 縦縮小()
    If TypeName(Selection) <> "Rectangle" Then Exit Sub
    If Selection.ShapeRange.Type <> 1 Then Exit Sub
    Selection.ShapeRange.ScaleWidth 0.99, msoFalse, msoScaleFromTopLeft
 End Sub
 Sub 横縮小()
    If TypeName(Selection) <> "Rectangle" Then Exit Sub
    If Selection.ShapeRange.Type <> 1 Then Exit Sub
    Selection.ShapeRange.ScaleWidth 0.99, msoFalse, msoScaleFromTopLeft
 End Sub

コメント返信：

[ 一覧(最新更新順) ]

[[20070309111022]] 『画像の上に文字が来るようにしたい』（モコ） ページの最後に飛ぶ

[[20070309111022]]　『画像の上に文字が来るようにしたい』（モコ）　ページの最後に飛ぶ