Excel VBA質問箱 IV

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

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


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

67408 / 76732

←次へ　｜　前へ→


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

WAKO - 04/5/15(土) 17:56 -


	引用なし

	パスワード

▼ちゃっぴさん：
本当に大変ありがとうございます。
長い時間こんなに親切にしていただいて、大変うれしく思っています。

おかげ様でうまくいきました。

これは今までと違うのですが、聞いてもよろしいですか。
ﾏｸﾛの記録では、でなかったのです。
下の.BackColorですが、下のように書くと
型が違います。というエラーになるのですが
書き方は分かりますでしょうか。
実はボタンの色も変えたいのです｡
参考書もボタンの色の変え方は書いてなかったのです。

With objButton.Object
　　　　.Caption = "ｴﾗｰﾁｪｯｸ"
　　　　.BackColor = "&H0080FF80&"
End With

▼ちゃっぴさん：
>>でも、ここで、ｵﾌﾞｼﾞｪｸﾄが必要です。というｴﾗｰで落ちてしまいます。
>>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)
>
>のようにオブジェクト変数を用いて記述してみれば？
>速いですし、ソースが見やすくなりますよ♪

1 hits

▼

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