投稿日	： 2006/09/13(Wed) 15:45
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: 【解決】ワークシートだけ表示させる

> 62ステップでした。ポイントだけフィードバックです。

私は、下記の方法でテストしておりました。

    For i = 2 To xlApp.CommandBars.Count - 1
        If xlApp.CommandBars(i).Visible = True Then
            n = n + 1
            ReDim Preserve bars(n)
            '表示しているツールバー名を取得し保存しておきます
            bars(n) = xlApp.CommandBars(i).Name
            'ツールバーを非表示に設定
            xlApp.CommandBars(i).Visible = False
        End If
    Next i
  

    For i = 0 To n
        'ツールバーを元の状態に戻します
        xlApp.CommandBars(bars(i)).Visible = True
    Next i

>(2)DisplayFullScreen=True で「全画面表示を閉じます」ダイアログボックスが出てしまう。
こんなところにあったのですね。　ダイアログボックスではなく　ただのツールバー
だったようですね。

★ - ワークシートだけ表示させる - ダンボ 09/12-15:28No.7233
• Re: ワークシートだけ表示させる - 花ちゃん 09/12-16:16 No.7236
  • Re^2: ワークシートだけ表示させる - ダンボ 09/12-18:17 No.7241
    • 【解決】ワークシートだけ表示させる - ダンボ 09/13-13:46 No.7244
      • Re: 【解決】ワークシートだけ表示させる - 花ちゃん 09/13-15:45 No.7245
        • Re^2: 【解決】ワークシートだけ表示させる - ダンボ 09/13-16:10 No.7246