Hey Guys!
OK, what I'm trying to do is create an app in vb6 where I open a few ppt files and then I want to extract the images from the ppt files to a directory on my hard disk!
The problem is, How do I use this code in my vb6 app. I get error and I think its because the source code is the code used for macros in powerpoint!

Sub ExtractImagesFromPres()
On Error GoTo ErrorExtract
Dim oSldSource As Slide
Dim oShpSource As Shape
Dim Ctr As Integer
Dim sPath As String

sPath = "C:\Test\"
Ctr = 0
For Each oSldSource In ActivePresentation.Slides
For Each oShpSource In oSldSource.Shapes
If oShpSource.Type = msoPicture Then
' Hidden Export method
Call oShpSource.Export(sPath & "Img" & _
Format(Ctr, "0000") & ".JPG", ppShapeFormatJPG)
Ctr = Ctr + 1
End If
Next oShpSource
Next oSldSource
If Ctr = 0 Then
MsgBox "There were no images found in this presentation", _
vbInformation, "Image extraction failed."
End If
Exit Sub
ErrorExtract:
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical, "Error #" & Err.Number
End If
End Sub

OH and why do I get an error when I insert this code
Dim ppApp As PowerPoint.Application
I get an User defined type not defined error!!!!
I use Win XP and Office 2003!
Thanks for your help and please ask wuestions if you don't understand!

Regards