|
▼ちゃっぴ さん:
本当に大変ありがとうございます。
長い時間こんなに親切にしていただいて、大変うれしく思っています。
おかげ様でうまくいきました。
これは今までと違うのですが、聞いてもよろしいですか。
マクロの記録では、でなかったのです。
下の.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)
>
>のようにオブジェクト変数を用いて記述してみれば?
>速いですし、ソースが見やすくなりますよ♪
|
|