|
>でも、ここで、オブジェクトが必要です。というエラーで落ちてしまいます。
>Set objButton = ActiveSheet.OLEObjects.Add _
> (ClassType:="Forms.CommandButton.1", Link:=False, _
> DisplayAsIcon:=False, Left:=108, Top:=14.25, _
> Width:=81, Height:=33.75)
ActiveSheetが有効ではないのでは?
ActiveSheet を Workbooks(ブック名).WorkSheets(シート名)
に置き換えてから実行してみてください。
あと、老婆心からですが・・・
ActiveWorkbookやActiveSheetを繰り返すのはよくないと思います。
一々アクティブになるので処理が非常に重くなります。
Dim wbkBookA As WorkBook
Dim wshSheetA As WorkSheet
Set wbkBookA = WorkBooks(1)
Set wshSheetA = wbkBookA.WorkSheets(1)
のようにオブジェクト変数を用いて記述してみれば?
速いですし、ソースが見やすくなりますよ♪
|
|