10/07/18 07:32:17
>>55
ＰＣが爆発するよ
っていうのは嘘だけど
バージョンによって挙動も違うし、何も起こらないかもしれない。
ただ被害を抑えたければ正しい順番で再インストールした方がいいと思う
>>57
Selection.ShapeRange.Ungroup.Select 'グループ解除
'＜省略＞
Selection.ShapeRange.Group.Select 'グループ化
Selection.Name = "Group 9" '名前設定
だから、省略の内部で別の図形をselectしているとうまくいかない
下のように、グループ化直前にselectする
Selection.ShapeRange.Ungroup.Select 'グループ解除
'＜省略＞
ActiveSheet.Shapes.Range(Array("Rectangle 4", "Rectangle 5", "Rectangle 6", "Rectangle 7")).Select
Selection.ShapeRange.Group.Select 'グループ化
Selection.Name = "Group 9" '名前設定