SubSelectAllPicturesOnSlide()
Dim sld As slide
Dim shp As Shape
' 获取当前活动的幻灯片
Set sld = ActiveWindow.View.slide
' 遍历幻灯片上的每个形状
For Each shp In sld.Shapes
' 检查形状是否为图片
If shp.Type = msoPicture Then
' 删除图片
shp.Delete
End If
Next shp
End Sub
可以进行调试
运行
关闭 VBA 编辑器,并返回到 PowerPoint,按下 Alt + F8(或者点击“宏”),选择 SelectAllPicturesOnSlide函数,然后点击“运行”。
CG
HelloWorld
Sub HelloWorld()
Dim slideIndex As Integer
Dim slide As slide
Dim textBox As Shape
' 添加一个新幻灯片
slideIndex = ActivePresentation.Slides.Count + 1
Set slide = ActivePresentation.Slides.Add(slideIndex, ppLayoutText)
' 在新幻灯片上添加一个文本框
Set textBox = slide.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 400, 200)
' 设置文本框的内容为 "Hello World"
textBox.TextFrame.TextRange.Text = "Hello World"
End Sub
循环
SubDeletePictures100Times()
Dim i As Integer
' 循环执行 DeleteAllPicturesOnSlide() 函数100次
For i =1 To 100
DeleteAllPicturesOnSlide
Next i
End Sub
SubDeleteAllPicturesOnSlide()
Dim sld As slide
Dim shp As Shape
' 获取当前活动的幻灯片
Set sld = ActiveWindow.View.slide
' 遍历幻灯片上的每个形状
For Each shp In sld.Shapes
' 检查形状是否为图片
If shp.Type = msoPicture Then
' 删除图片
shp.Delete
End If
Next shp
End Sub
SubDeletePictures100Times()
Dim i As Integer
' 循环执行 DeleteAllPicturesOnSlide() 函数100次
For i =1 To 100
DeleteAllPicturesOnSlide
Next i
End Sub