PowerPoint PPTX den Resim Çıkarma Programı

[Asri]

PowerPoint PPTX dosyalarında bulunan resimleri “resimler_dosyaadi.uzantisi” adındaki klasöre çıkarabilir siniz.


Bu işlem için, açılan pencereden sadece resimleri çıkartılacak PPTX dosyasını seçmeniz yeterli olacaktır.

Program AUTOIT script programı ile yazıldığı için bazı antivirusler uyarı verebilir yada programı silebilir.
Güven duymuyorsanız programı indirmeyiniz.

http://asriakdeniz.com/powerpoint-pptx-den-resim-cikarma-programi

 

[Asri]

Autoit kodları.

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=File 69.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Zip.au3>
#include <FileConstants.au3>
;#include <WinAPIFiles.au3>
#include <MsgBoxConstants.au3>

 MsgBox($MB_SYSTEMMODAL, "Bilgi", "Excel ve farklı programlarım için," & @CRLF & "www.asriakdeniz.com  - asriakdeniz@gmail.com "& @CRLF & "Ziyaret ediniz.", 10)

 Local $sFileOpenDialog = FileOpenDialog("Resimleri çıkartılacak PowerPoint PPTX dosyasını seçiniz.", @ScriptDir & "\", "PowerPoint (*.pptx)", $FD_FILEMUSTEXIST)
 If @error Then
    MsgBox($MB_SYSTEMMODAL, "Bilgi", "Dosya seçilmedi, işlem yapılmadı.", 10)
    exit
 endif
 $sFileOpenDialog = StringReplace($sFileOpenDialog, "|", @CRLF)
 $exceldosya =StringRegExpReplace($sFileOpenDialog, "^.*\\", "")

 $klasor=@TempDir & "\x1998ydeneme2001z"
 $zipdosya = @TempDir &  "\" & $exceldosya  & ".zip"

 DirRemove($klasor, 1)

 FileCopy(@ScriptDir & "\" & $exceldosya , $zipdosya, $FC_OVERWRITE + $FC_CREATEPATH)

 _Zip_UnzipAll($zipdosya, $klasor, 1)
 FileDelete($zipdosya )

 DirCopy($klasor & "\ppt\media", @ScriptDir & "\resimler_" & $exceldosya  , $FC_OVERWRITE)

 DirRemove($klasor, 1)

 exit