| |
▼ちゃっぴ さん：
返信ありがとうございます。本当に助かります。
質問の続きです。
ちゃっぴ さんのは、
With ActiveWorkbook.VBProject.VBComponents.Item("Sheet1").CodeModule
'マクロの 1 行目です。同様に 5 行目まで書き込みます。
.InsertLines 1, "Private Sub CommandButton1_Click()"
.InsertLines 2, ""
.InsertLines 3, " MsgBox ""セルの値が変更されました"""
.InsertLines 4, ""
.InsertLines 5, "End Sub"
End With
これを使わせていただきました。
CommandButton1をコピーしたのではなく、
OPEN時に、CommandButton1を作成するﾏｸﾛを入れました。内容は以下ののように記述
しました。（CommandButton1をコピーはうまくできませんでした)
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1"
, Link:=False _
, DisplayAsIcon:=False, Left:=108, Top:=14.25, Width:=81, Height:= _
33.75).Select
ﾏｸﾛ実行後、クリックすると "セルの値が変更されました"
というメッセーｼﾞがでますので、CommandButton1は
作成できていると思います。
CommandButton1.Caption = "ｴﾗｰﾁｪｯｸ" は、
OPEN時のﾏｸﾛで、CommandButton1を作成し,ActiveWorkbook.Save後
に追加したのですが、ｵﾌﾞｼﾞｪｸﾄが必要です。
というｴﾗｰがでました。
ﾏｸﾛが終了しないと、CommandButton1というｵﾌﾞｼﾞｪｸﾄができたと
認識してくれないのでしょうか。
ちゃっぴ さん 分かりますか。
▼ちゃっぴ さん：
>この質問の続きですよね
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=13842;id=excel
>
>ということは、シート1にCommandButton1をコピーしたんですよね？
>
>まずは、エラーが起きた時点でシート1にオブジェクト名CommandButton1が存在することを確認してください。
>
>≪プロパティ≫→≪オブジェクト名≫
>
>コマンドボタンをコピーするとオブジェクト名が変更される可能性があります。
|
|
WAKO
- 04/5/15(土) 15:16 -
