エクセルで書式のコピー貼り付けを行うと貼り付けられた部分の書式が変更されてしまうため、コピーと貼り付けができないようにするため、ネットで調べてコードを試していました。(結局実力がないためできませんでした。)あとで気がついたのですが、シート上でショートカットメニューを使ってコピー貼り付けを行ってみたら、その中の貼り付けのアイコンと文字だけが薄くなっていて貼り付けができない状態になっていました。エクセルの他の場所にある貼り付けアイコンやショートカットキー(Ctr+V)等では正常に行えます。ショートカットメニュー内の貼り付けはどんなコードを実行すれば有効にして回復させることができるのでしょうか。よろしくお願いいたします。(エクセル2007を使用です。)
No.2ベストアンサー
- 回答日時:
>ショートカットメニュー内の貼り付けはどんなコードを実行すれば有効にして回復させることができるのでしょうか。
他にショートカットメニューをカスタマイズしてなければ、CommandBarごとリセットするのが簡単です。
Sub test()
Dim cb As CommandBar
For Each cb In Application.CommandBars
Select Case cb.Name
Case "Cell", "Row", "Column"
cb.Reset
End Select
Next
End Sub
質問以来所用で今帰宅し、早々に回答を見たら2件ありました。まず上に表示されていたend_Uさんのからと思い試してみたらヤッター!という感じです。一発で回復しました。最初はオフィス関係のソフトのカテゴリーに質問しようかと思いましたが少し調べたらマウスが壊れているはずという過去回答をみて自分のは壊れていないのは確かであったので、プログラム的なものと思いこちらのカテゴリーに尋ねました。非常に助かりました。ありがとうございます。今後の参考のためよろしければお伺いしたいのですが、このマクロのリセットはどこまでを対象として使えるのでしょうか。ショートカットメニューにある全項目、またはホーム>クリップボード内にあるコマンドにも有効なのでしょうか。
No.3
- 回答日時:
>このマクロのリセットはどこまでを対象として使えるのでしょうか。
>ショートカットメニューにある全項目、
>またはホーム>クリップボード内にあるコマンドにも有効なのでしょうか。
2007からメニューコマンドのインターフェイスが「リボン」に変わりましたから、
その「リボン」に対してはCommandBar制御のマクロは使えません。
∴『ホーム>クリップボード内にあるコマンド』には無効です。
従来のCommandBarは下位バージョンとの操作互換の為残っています。
その中で、マウス右クリックでポップアップするメニューは、
そのまま従来のCommandBarが使われています。
このCommandBarに対しては前述のマクロは有効です。
つまり、Type = msoBarTypePopupのCommandBarは、2007でも制御可能です。
以下はそのCommandBarsを列挙するサンプルです。
Sub test()
Dim cb As CommandBar
Dim i As Long
Dim v(1 To 70, 1 To 3)
v(1, 1) = "index"
v(1, 2) = "name"
v(1, 3) = "namelocal"
i = 1
For Each cb In Application.CommandBars
With cb
If .Type = msoBarTypePopup Then
i = i + 1
v(i, 1) = .Index
v(i, 2) = .Name
v(i, 3) = .NameLocal
End If
End With
Next
Sheets.Add.Range("A1:C1").Resize(i).Value = v
End Sub
『セル』を選択して右クリックでポップアップするメニューはCommandBars("Cell")です。
同様に『列』選択時はCommandBars("Column")。
『行』選択時はCommandBars("Row")。
それぞれ2個ずつあるのは「標準」ウィンドウ用と「改ページプレビュー」用です。
ご質問の状況「シート上でショートカットメニュー...貼り付けのアイコンと文字だけが薄く」...
から、この"Cell"、"Column"、"Row"に対してリセットかければ良いかな、と判断しました。
事務局に連絡を取り追加回答までして頂き、お手数をおかけして申し訳ございませんでした。
回答をみて試した後うまくいったので気持ちがどこかに飛んで行ってしまい、すぐにお礼を書きホッとしていました。お礼の欄に再質問を書く自分が恥ずかしいです。
右クリックメニューに対して有効ということが分かり、又不具合があったら使わせていただこうと大切に保存しておきます。大変ありがとうございました。
No.1
- 回答日時:
標準モジュールに
Sub test01()
MsgBox Application.CommandBars("edit").Controls(4).Caption
Application.CommandBars("edit").Controls(4).Enabled = False
End Sub
を実行したような状態になっているのかな。編集メニューのコピーがうすい文字にグレイアウトする。
それなら・・・.Enabled = Falseの部分を・・・.Enabled = True にして実行してみては。
回答がなかなか付いてないが、もっと難しい問題かもしれないが。
お忙しいところ早々に回答をいただきありがとうございました。回答表示の上から順にと思いend_Uさんのを試してみたら直ってしまい、前の不具合の状態にする方法もわからないため、imogasiさんのを試す方法が無くなってしまいました。申し訳ありません。本当にありがとうございました。又の質問の際はよろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Excel(エクセル) エクセルからビジオのリンク貼り付け 1 2023/03/30 17:51
- Windows 10 エクセルの罫線がパワポに貼り付けると見えなくなる。 3 2022/12/27 15:23
- その他(Microsoft Office) EXCEL2007 右クリックに「値を貼り付け」がない プライベートのパソコンを購入し(window 3 2022/04/13 23:10
- その他(Microsoft Office) エクセルマクロ オートフィルターでで選択コピー 2 2022/04/18 11:05
- Visual Basic(VBA) 集計シートA列のコードと一致する右に並んだシート名(コード)の3行目から10行目をコピーして貼り付け 4 2022/08/18 15:24
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- Word(ワード) ワードアートの袋文字のコピー 1 2023/01/08 16:03
- Excel(エクセル) マクロ作成初心者です。CSVファイルの日付データについて 3 2022/12/14 06:02
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルファイルを値でのみし...
-
Excelでマクロ実行中に画面を固...
-
【Excel】マクロでページを追加...
-
エクセル連番自動印刷について
-
VBA Shapes コピーと名前
-
エクセルVBAで納期管理システム...
-
エクセルのマクロについて教え...
-
エクセル マクロ写真帳に一括で...
-
【ExcelVBA】マクロブックを通...
-
セルに入力するたびにマクロを...
-
VBAで行コピーして挿入
-
EXCEL上にコマンドボタン...
-
VBA 選択したデータを別シー...
-
VBでエクセルに罫線を引くには?
-
EXCEL VBA 他のアプリケーショ...
-
worksheet_changeの一時無効化
-
秀丸で文字列範囲を選択したら...
-
CSVデータをEXCELのテーブルに...
-
シート名を記入する
-
エクセルのマクロを教えてください
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルを値でのみし...
-
Excelでマクロ実行中に画面を固...
-
エクセル連番自動印刷について
-
VBA Shapes コピーと名前
-
エクセル マクロ写真帳に一括で...
-
EXCEL VBA 他のアプリケーショ...
-
【Excel】マクロでページを追加...
-
セルに入力するたびにマクロを...
-
ブックの共有でVBAエラー
-
エクセル 図形の寸法を取得したい
-
エクセルVBAで納期管理システム...
-
EXCEL 行番号や列番号が選択で...
-
VBAで行コピーして挿入
-
エクセルファイルの回数期限の...
-
グラフ要素のセルを参照したい...
-
エクセルでマクロ登録の不具合解消
-
再度,ExcelVBA,public変数が消える
-
VB.NETによるEXCELの行挿入
-
ExcelのVBAで自動採番したい...
-
【ExcelVBA】マクロブックを通...
おすすめ情報