回答編集履歴
1
修正
answer
CHANGED
|
@@ -10,7 +10,7 @@
|
|
|
10
10
|
secName = "section1"
|
|
11
11
|
|
|
12
12
|
With moto.SectionProperties
|
|
13
|
-
Dim i, j
|
|
13
|
+
Dim i, j, k
|
|
14
14
|
For i = 1 To .Count
|
|
15
15
|
If .Name(i) = secName Then Exit For
|
|
16
16
|
Next
|
|
@@ -23,7 +23,10 @@
|
|
|
23
23
|
|
|
24
24
|
moto.Slides.Range(arr).Copy
|
|
25
25
|
|
|
26
|
+
k = saki.Slides.Count + 1
|
|
26
|
-
saki.Slides.Paste
|
|
27
|
+
saki.Slides.Paste k
|
|
28
|
+
saki.SectionProperties.AddBeforeSlide k, secName
|
|
29
|
+
|
|
27
30
|
|
|
28
31
|
End With
|
|
29
32
|
|