Excelグラフ形式の枠が表示されない

Question

ある程度前に、マクロを使って古いExcelファイルを開いた。その後、コンテキストメニュー、ピボットテーブルフィールドリストペインなどのようなExcelの多くの機能を失った。私はvbaコードでそれらの多くを解決しましたが、まだこの問題を解決できませんでした：

グラフを開くことができません（ "xxx"という図表要素を右クリックして "xxx"という形式をクリックすると右に表示されるもの）。

私はすでにExcelのオプションを試してみましたが、そこに解決策が見つかりませんでした。また、コンテキストメニューを戻す私の以前の研究では、私はvbaコードを使った解決策を見つけました。したがって、私はこれに似た解決策があると思います。問題は、これを解決するための正しいvbaクラス、メソッド、または関数を見つけることができなかったことです。

ありがとうございます。

Answer 1

です。

まず、私は以下のコードを使用してシートにのCommandBarsのすべての名前を列挙されています：

Dim i As Integer 
Dim bar As CommandBar 
i = 0 

For Each bar In Application.CommandBars 
    i = i + 1 
    Sheets("Sheet1").Cells(i, 1) = bar.Name  
Next 

これは私がちょうどのCommandBarsの名前を学びたいと思っ、必要はありませんでした。

いくつかの試行錯誤の後、私は以下のコードは、仕事をしていることを見出した：

Application.CommandBars("Format Object").Enabled = True 

コード前の回答から

Application.CommandBars(140).Enabled=True 

は、おそらく同じことを行いますが、私ができますそれを働かせないでください。

Answer 2

これはあなたを助ける必要があります。専門家交流 からマイケル・ファウラーへ クレジットをここに私はそれを最終的に解決したlink

Sub ShowAllToolbars() 
     'loop variable 
     Dim i As Integer 

     ' Loop through the total number of toolbars. 
     For i = 1 To Application.Toolbars.Count 

      ' Show each toolbar. 
      Application.Toolbars(i).Visible = True 
Application.CommandBars(140).Enabled=True 
     ' End of loop. 
     Next i 

    End Sub