Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

67419 / 76738

←次へ　｜　前へ→


	【13876】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝの内容変更について

ちゃっぴ

- 04/5/15(土) 17:22 -


	引用なし

	パスワード

>でも、ここで、ｵﾌﾞｼﾞｪｸﾄが必要です。というｴﾗｰで落ちてしまいます。
>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)

のようにオブジェクト変数を用いて記述してみれば？
速いですし、ソースが見やすくなりますよ♪

0 hits

▼

【13867】ｺﾏﾝﾄﾞﾎﾞﾀﾝの内容変更について WAKO 04/5/15(土) 14:27