回答編集履歴
1
追記
test
CHANGED
|
@@ -3,3 +3,9 @@
|
|
|
3
3
|
```VBA
|
|
4
4
|
ActiveWindow.Selection.ShapeRange.MergeShapes msoMergeIntersect
|
|
5
5
|
```
|
|
6
|
+
若しくは
|
|
7
|
+
```VBA
|
|
8
|
+
With ActiveWindow.Selection.ShapeRange
|
|
9
|
+
.MergeShapes msoMergeIntersect
|
|
10
|
+
End With
|
|
11
|
+
```
|