オブジェクト名をVBAで指定する方法を教えてくださ
VBAでワークシートにOLEObjectsのコマンドボタンを設置してるのですが
ボタンのオブジェクト名をVBAで指定するにはどうすればいいでしょうか?
Private Sub CommandButton1_Click()
With ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False)
.Object.Name = "ボタン1"
.Object.Caption = "ボタン"
.Object.Font.Size = 9
.Width = ActiveCell.Width
.Height = ActiveCell.Height
End With
End Sub
を実行すると、
.Object.Name = "ボタン1"
の部分で
「オブジェクトは、このプロパティまたはメソッドをサポートしていません。(Error 438)」というエラーになります。
他のコードは大丈夫です。
オブジェクト名をVBAで指定する方法を教えてください。
当方エクセル2003です。