EXCEL2000 VBA シート選択されたらツールバーを表示する 実験

EXCEL2000 VBA  シート選択されたらツールバーを表示する　実験

 

再生できない場合、ダウンロードは🎥こちら

 

Option Explicit

---

'シートがアクティブになったら、図形描画ツールバーを表示

Private Sub Worksheet_Activate()

    Application.CommandBars("Drawing").Visible = True

End Sub

---

'シートがアクティブでなくなったら、図形描画ツールバーを非表示

Private Sub Worksheet_Deactivate()

    Application.CommandBars("Drawing").Visible = False

End Sub

 

 

タグ：Excel2000 VBA