|
前のソース間違ってました。削除します。
OLEObjectの個々のオブジェクトを参照するには、Objectプロパティを使用しなければならないみたいです。
Dim objButton As OLEObject
Set objButton = ActiveSheet.OLEObjects.Add _
(ClassType:="Forms.CommandButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=108, Top:=14.25, _
Width:=81, Height:=33.75)
objButton.Object.Caption = "sdaf"
この場合だと変数「objButton」は「OLEObject」となりますので「OLEObject」に関連づけられたプロパティのみ取得できます。
「OLEObject」のプロパティにCaptionプロパティは存在しませんので以前のものはエラーとなります。
「objButton.Object」とすると、このオブジェクトに関連付けられたOLEオブジェクトはCommandButtonですので、ようやくCommandButtonのプロパティを使用できるようになります。
|
|