エクセルvba で フォームの削除

質問

エクセルvbaで、
フォーム上ボタンクリック⇒処理が終了
⇒ソースの削除⇒新しい名前を付けて保存
という流れで使用しております。

その時にソースは削除できているのですが、
フォームが残ってしまいます。

フォームを削除させる方法はございますでしょうか？

何卒、宜しくお願い致します。

回答No.1

KenKen_SP · ベストアンサー

こんにちは。こんな感じ。いろいろ問題がありますが。。

Sub RemoveVBComponetSample()

　　Const vbext_ct_StdModule　 As Long = 1 ' // 標準モジュール
　　Const vbext_ct_ClassModule As Long = 2 ' // クラスモジュール
　　Const vbext_ct_MSForm　　　As Long = 3 ' // フォームモジュール

　　Dim coms As VBComponents
　　Dim com　As VBComponent

　　Set coms = ThisWorkbook.VBProject.VBComponents
　　For Each com In coms
　　　　If com.Type = vbext_ct_MSForm Then
　　　　　 coms.Remove com
　　　　End If
　　Next
　　Set coms = Nothing

End Sub