teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

追記

2021/12/02 13:57

投稿

jinoji
jinoji

スコア4592

answer CHANGED
@@ -1,5 +1,13 @@
1
1
  ```Vba
2
- ppPt.Slides.Item(countSld).Select 'n枚目のスライドを選択したあとで
2
+ ppPt.Slides.Item(countSld).Select 'n枚目のスライドを選択 したあとで
3
3
 
4
4
  sl.Select 'また1ページ目を選択しているから?
5
+ ```
6
+
7
+ ```vba
8
+
9
+ With ppPt.Slides 'スライドを追加 するときにslを再セットしたらどうでしょう。
10
+ Set sl = .Add(Index:=.Count + 1, Layout:=ppLayoutText)
11
+ End With
12
+
5
13
  ```