Sub Save_PowerPoint_Slide()
Dim sImagePath As String
Dim sImageName As String
Dim sPrefix As String
Dim oSlide As Slide
Dim shp As Shape
Dim Ctr As Integer
On Error GoTo Err_ImageSave
Ctr = 0
sImagePath = "path"
sPrefix = Split(ActivePresentation.Name, ".")(0)
sImageName = sPrefix & "_" & oSlide.SlideIndex & ".png"
For Each oSlide In ActivePresentation.Slides
For Each shp In oSlide.Shapes
If shp.Type = msoTable Then
shp.Export sImagePath & "\" & sImageName & 1, ppShapeFormatPNG
Ctr = 1 + 1
End If
Next shp
Next oSlide
Err_ImageSave:
If Err <> 0 Then
MsgBox "no slides"
End If
End Sub