Dim CPP As New PHOTOPAINT.Application
 
Private Sub Form_Load()
    Dim Farbe As Color
    CPP.OpenDocument "Q:\3D-Ansichten\111\11100001_Ina_Stuhl_34_0000.jpg"
    CPP.Documents.Item(CPP.Documents.Count).Activate
    Set Farbe = CPP.CreateColor
    CPP.ActiveDocument.CropToColor Farbe, pntToleranceNormal, 1
    Debug.Print CPP.ActiveDocument.FileName
    CPP.ActiveDocument.SaveAs "D:\11100001_Ina_Stuhl_34_0000.jpg", cdrJPEG
    CPP.Quit
    Unload Me
End Sub