回答編集履歴

1

修正

2021/12/14 12:12

投稿

jinoji
jinoji

スコア4592

test CHANGED
@@ -22,7 +22,7 @@
22
22
 
23
23
  With moto.SectionProperties
24
24
 
25
- Dim i, j
25
+ Dim i, j, k
26
26
 
27
27
  For i = 1 To .Count
28
28
 
@@ -48,7 +48,13 @@
48
48
 
49
49
 
50
50
 
51
+ k = saki.Slides.Count + 1
52
+
51
- saki.Slides.Paste
53
+ saki.Slides.Paste k
54
+
55
+ saki.SectionProperties.AddBeforeSlide k, secName
56
+
57
+
52
58
 
53
59
 
54
60