Word2013

Word2010までは、表のセルを選択し、右クリックのメニューに
「セルの配置」という項目がありましたが
Word2013では、なくなったのでしょうか
Word2013の右クリックメニューに「セルの配置」を追加する方法はありますか

画像を参照してください

表の文字配置調整
http://tech.kihon.jp/word/918

A 回答 (3件)

No.1の回答者です。


質問にある参考サイトは表ハンドルを使った表全体の状態でしたね。

前のマクロでの設定は、個別セル内の文字入力状態で有効な方法ですが、
表全体では表示されません。右クリックメニューが違うためです。

表全体の場合
' -----------------------------------------------------

Public Sub ContextMenu_TableWhole()

 Const MenuCaption As String = "セルの配置"

 On Error Resume Next

 Application.CommandBars("Whole Table").Controls(MenuCaption).Delete
 On Error GoTo 0

 With Application.CommandBars("Whole Table").Controls.Add(Type:=msoControlPopup, Before:=14)
  .Caption = MenuCaption

' セルの配置のコマンドを設定
  .Controls.Add ID:=3914
  .Controls.Add ID:=3915
  .Controls.Add ID:=3916
  .Controls.Add ID:=3917
  .Controls.Add ID:=3918
  .Controls.Add ID:=3919
  .Controls.Add ID:=3920
  .Controls.Add ID:=3921
  .Controls.Add ID:=3922

 End With
End Sub

' -----------------------------------------------------
基本的には同じものですが、選択した右クリックメニューが違う場合、
コマンドバーの名前も違ってくるので、それぞれのコマンドバーごとに
設定しないと登録できません。表関連のコマンドバー名を調べてから、
必要な右クリックメニューごとに個別に登録してくださいね。
コマンドバーは質問者自身で調べてください。
すべてを書くつもりはないので。
    • good
    • 0
この回答へのお礼

回答ありがとうございます。
マクロは、後期高齢者には難しいので
断念します。
シニアにWordとExcelを教えていますが
セルの配置を右クリックで教えてきたもので
できればと思ったものです

お礼日時:2014/01/26 06:05

No.1の回答者です。


登録したマクロは、Wordを終了しても消えていないみたいですね。
確認不足でした。消えないのなら、そのまま登録してもいいかも
登録できるようにすべてのコマンドを登録するマクロにしてみました。

同じ名前のマクロですから、こちらで登録してみてね。
' -----------------------------------------------------

Public Sub ContextMenu_TableText()

 Const MenuCaption As String = "セルの配置"

 On Error Resume Next

 Application.CommandBars("Table Text").Controls(MenuCaption).Delete
 On Error GoTo 0

 With Application.CommandBars("Table Text").Controls.Add(Type:=msoControlPopup, Before:=18)
  .Caption = MenuCaption

' セルの配置のコマンドを設定
  .Controls.Add ID:=3914
  .Controls.Add ID:=3915
  .Controls.Add ID:=3916
  .Controls.Add ID:=3917
  .Controls.Add ID:=3918
  .Controls.Add ID:=3919
  .Controls.Add ID:=3920
  .Controls.Add ID:=3921
  .Controls.Add ID:=3922

 End With

End Sub

' -----------------------------------------------------

マクロについては、今だ不得意なので細かいことはわかっていません。
セルの配置のメニューの位置については、私の環境で使いやすい位置での
値18を指定していますが、Before:=1で一番上にしても使いやすいかも。
ボタンとテキストの両方が表示されていますが、ボタンだけにする方法と
3×3での配置方法がわからなかったので、ちょっと縦長になります。
    • good
    • 0

> Word2013では、なくなったのでしょうか


海外のサイトも少し調べましたが、Word2013ではなくなったようです。

> Word2013の右クリックメニューに「セルの配置」を追加する方法は
マクロを使って、右クリックメニューへとポップアップとして登録する
しかないと思います。
http://www.ka-net.org/office/of39.html#n09

簡単な例(Wordを終了すると設定したコマンドは消えます)
' -----------------------------------------------------

Public Sub ContextMenu_TableText()

 Const MenuCaption As String = "セルの配置"

 On Error Resume Next

 Application.CommandBars("Table Text").Controls(MenuCaption).Delete
 On Error GoTo 0

 With Application.CommandBars("Table Text").Controls.Add(Type:=msoControlPopup, Before:=1, Temporary:=True)
  .Caption = MenuCaption

' セルの配置のコマンドを設定
  .Controls.Add ID:=3914 '両端揃え(上)
' 3914~3922までがセルの配置にあるコマンドID
  .Controls.Add ID:=3922 '下揃え(右)

 End With
End Sub

' -----------------------------------------------------
http://msdn.microsoft.com/ja-jp/library/office/f …(v=office.15).aspx
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

今、見られている記事はコレ!

  • エルフ田さん:第70話「絵と向き合うということ」

    エルフ(ファンタジーとかに出てくる長寿の種族)の「エルフ田」と、ただの人間である女子社員2人による日常ギャグ。エルフならではのズレたツッコミでバシバシ人間界の話題を斬っていきます。

  • たまランチ:第46話「エビチリ」

    外ランチを愛してやまない元気な女子社員・たまちゃん(26)。オシャレなお店より「安くておいしい」お店が大好き! そんな女子力低めなたまちゃんの、色気より食い気な日々をつづります。

  • 女子必見!2016年のトレンド水着最新ナビ

    夏目前、今年もデパートでは水着がお目見えするようになった。「教えて!goo」には、スタイルに自信の無いという女性から「どんな水着を買えばいいのか わかりません」という質問が。これに対し、「ワンピースは、生...

  • ポイっと捨てる前に…卵の殻でふきんを漂白できるか実験してみた

    毎日のように出るゴミのひとつに卵の殻がある。捨てるたびにこれが何かに使えないかと思っていた。そこで「教えて!goo」で「卵の殻の処分について」という質問を発見。さっそく、のぞいてみると卵の殻の再利用につ...

  • 真面目に働かない同僚への賢い対処法

    皆さんは今の職場に何か悩みがないだろうか。特に人間関係の悩みともなると、それが原因で退職や転職も考えるほど深刻なこともある。「教えて!goo」を見ていても、沢山の仕事の悩みが寄せられている。そんな中で今...

おしトピ編集部からのゆる~い質問を出題中

お題をもっとみる

このQ&Aを見た人が検索しているワード

コンピュータやスピーカーなどのオーディオ、スマートフォンをはじめとした携帯電話とそのサービスに関する質問が充実。急なトラブルの対策案もここで得られるかもしれません。

このカテゴリの人気Q&Aランキング

おすすめ情報

カテゴリ