在PPT中,不错使用VBA宏竣事批量生成PPT文献。具体才调如下:
1. 掀开PowerPoint,按下“ALT + F11”参加VBA剪辑器;
2. 在VBA剪辑器界面中,点击“插入”菜单,选拔“模块”,在弹出的对话框中输入以下代码:
```
Sub GeneratePPT()
Dim i As Integer, Num As Integer, j As Integer
Dim newPPT As Presentation
Dim newSlide As Slide
Num = 5 '生成5个PPT文献
For i = 1 To Num
'新建一个PPT文献
Set newPPT = Presentations.Add
'在第一张幻灯片上插入图像
Set newSlide = newPPT.Slides.Add(1, ppLayoutBlank)
With newSlide.Shapes
.AddPicture "D:\images\image" & i & ".png", False, True, 0, 0, -1, -1
End With
'在第二张幻灯片上插入文本框
Set newSlide = newPPT.Slides.Add(2, ppLayoutText)
With newSlide.Shapes
.Title.Text = "Title" & i
.TextFrame.TextRange.Text = "Content" & i
End With
'保存文献
newPPT.SaveAs "D:\Generated PPTs\" & "Presentation " & i & ".pptx"
'关闭文献
newPPT.Close
Next i
End Sub
```
3. 修改第8行的需要生成的PPT文献数目(Num);
4. 修改第13-20行的操作骨子,比如不错在每个PPT文献中插入不同的图像和文本骨子;
5. 修改第26行的需要保存的PPT文献夹旅途("D:\Generated PPTs\");
6. 点击器具栏的“运转”按钮或按下“F5”键,即可现实PPT文献的批量生成。
需要明慧的是,在批量生成PPT文献的经由中,可能存在与见解文献时事不兼容的情况以及文献大小过大的问题。在进行批量操作之前,淡薄提前备份好扫数原始的文献,况兼相宜减少图片的质料和压缩文献大小,
开发物联网软件物联网软件公司以保证生成的文献骨子顺序,且不会酿成文献无法掀开或加载渐渐的情况。
本站仅提供存储做事,扫数骨子均由用户发布,如发现存害或侵权骨子,请点击举报。
前区奇偶:上期前区奇偶比为3:2物联网软件开发资讯,最近10期前区奇偶比为26:24,本期注意前区奇码走热,奇偶比看好开出4:1。
app龙头分析:上期龙头开出1区号码05,与前期比对点位上升物联网软件开发资讯,本期关注龙头点位下降,推荐03。