Sub edit_objct()
	Worksheets("Sheet1").OLEObjects(1).Verb Verb:=xlPrimary
	'1番目のOLEオブジェクトの編集を行います
	Worksheets("Sheet1").OLEObjects(1).Verb Verb:=xlPrimary
	'1番目のOLEオブジェクトを開きます
	'(注）OLEオブジェクトの種類によってVerbは変わります
End Sub