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