Sub insert_organization()
	ActiveSheet.OLEObjects.Add(ClassType:="OrgChart", _
	'OLEオブジェクトの組織図を挿入します
	Link:=False, _
	'リンクしません
        DisplayAsIcon:=False).Activate
	'アイコン化しません
End Sub