Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


67419 / 76732 ←次へ | 前へ→

【13869】Re:コマンドボタンの内容変更について
質問  WAKO  - 04/5/15(土) 15:16 -

引用なし
パスワード
   ▼ちゃっぴ さん:
返信ありがとうございます。本当に助かります。
質問の続きです。
ちゃっぴ さんのは、
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が存在することを確認してください。
>
>≪プロパティ≫→≪オブジェクト名≫
>
>コマンドボタンをコピーするとオブジェクト名が変更される可能性があります。
2 hits

【13867】コマンドボタンの内容変更について WAKO 04/5/15(土) 14:27 質問
【13868】Re:コマンドボタンの内容変更について ちゃっぴ 04/5/15(土) 14:55 回答
【13869】Re:コマンドボタンの内容変更について WAKO 04/5/15(土) 15:16 質問
【13873】Re:コマンドボタンの内容変更について ちゃっぴ 04/5/15(土) 16:23 回答
【13874】Re:コマンドボタンの内容変更について WAKO 04/5/15(土) 17:07 質問
【13876】Re:コマンドボタンの内容変更について ちゃっぴ 04/5/15(土) 17:22 回答
【13877】Re:コマンドボタンの内容変更について ちゃっぴ 04/5/15(土) 17:31 回答
【13880】Re:コマンドボタンの内容変更について ちゃっぴ 04/5/15(土) 17:54 発言
【13896】Re:コマンドボタンの内容変更について WAKO 04/5/15(土) 20:59 質問
【13898】Re:コマンドボタンの内容変更について ちゃっぴ 04/5/15(土) 21:59 回答
【13899】Re:コマンドボタンの内容変更について WAKO 04/5/15(土) 22:30 お礼
【13881】Re:コマンドボタンの内容変更について WAKO 04/5/15(土) 17:56 質問
【13884】Re:コマンドボタンの内容変更について ちゃっぴ 04/5/15(土) 18:07 回答
【13885】Re:コマンドボタンの内容変更について WAKO 04/5/15(土) 18:20 お礼
【13886】Re:コマンドボタンの内容変更について WAKO 04/5/15(土) 18:31 質問
【13888】Re:コマンドボタンの内容変更について ちゃっぴ 04/5/15(土) 19:20 回答
【13891】Re:コマンドボタンの内容変更について WAKO 04/5/15(土) 19:30 お礼

67419 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free