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