[[20101004090013]]　『コマンドボタンの表示、非表示』（初心者なーくん）　ページの最後に飛ぶ

『コマンドボタンの表示、非表示』（初心者なーくん）

 お世話になります。
 今、コマンドボタンを１つworksheet上に配置しています。
 そしてbookのopen、closeイベントで表示、非表示するようにしたいと思い下記マクロを 考えました。

 Private Sub Workbook_BeforeClose(Cancel As Boolean)
     Worksheets("Sheet1").CommandButton1.Visible = False
 End Sub

 Private Sub Workbook_Open()
     Worksheets("Sheet1").CommandButton1.Visible = True 
 End Sub

 マクロ有効にした時は思い通りです。
 マクロ無効でbookを開いた時、コマンドボタンが表示されてしまいます。
 コマンドボタンを非表示にするにはどうしたらいいですか？教えてください。

 WindowsXP,Excel2003
 （初心者なーくん）

 こんにちは
 Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Worksheets("Sheet1").Shapes("CommandButton1").Cut
End Sub
Private Sub Workbook_Open()
    Worksheets("Sheet1").Activate
    Application.CommandBars("Control Toolbox").Visible = True
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=242.25, Top:=77.25, Width:=45, Height:= _
        25.5).Select
    Application.CommandBars("Control Toolbox").Visible = False
    Range("A1").Select
End Sub
 マクロ自動記録したままのコードですけど、ブックを閉じる時に消して、開く時に作成してはどうですか？

 Private Sub CommandButton1_Click()
    '・・・
End Sub
 のコードはそのままでいいので。
（ウッシ）

 かぶりましたが、後々わかりやすいように、一応。
 コード書かなくても、下記だけでおわかりになるかと思ったのですが。

 ご質問は言い換えると、
 「マクロ無効でbookを開いた時に、マクロを働かせるにはどうしたらよいですか？」
 という意味のようです・・・。

 それは無理なので、ウッシさんの言われるように、
 「マクロ有効でbookを開いた時のみ、ボタンを作成して、bookを閉じる前にボタンを削除」
 というロジックを追加してください。

 （へむ）

 返事ありがとうございます。

 ウッシさん、やはりそのやり方になるんですね。わかりました。
 ありがとうございます。

 へむさんありごとうございます。
 sheetなどの場合は、非表示で終了保存して、マクロ無効で開いた時非表示のままなので
 コマンドボタンも同じようにできないのかなぁ～と思いまして・・・。

 （初心者なーくん）

 マクロの自動記録で下記コードが作成できましたが、Captionで名前を入力しても記録
 をとれないので名前の登録の仕方を教えてくれませんか？
 Sub Macro1()
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=318, Top:=235.5, Width:=157.5, Height:= _
        51.75).Select
 End Sub

 （初心者なーくん）

コメント返信：

[ 一覧(最新更新順) ]

[[20101004090013]] 『コマンドボタンの表示、非表示』（初心者なーくん） ページの最後に飛ぶ

[[20101004090013]]　『コマンドボタンの表示、非表示』（初心者なーくん）　ページの最後に飛ぶ