vba删除空文本框.

Sub RemoveTextboxes()
    Dim SlideToCheck As Slide
    Dim ShapeIndex As Integer
    For Each SlideToCheck In ActivePresentation.Slides
    For ShapeIndex = SlideToCheck.Shapes.Count To 1 Step -1
      If SlideToCheck.Shapes(ShapeIndex).Type = msoTextBox And _
      Not SlideToCheck.Shapes(ShapeIndex).TextFrame.HasText Then
    SlideToCheck.Shapes(ShapeIndex).Delete
    End If
    Next
    Next
End Sub

然后转为pdf来打印!