Trình diển Power Point và xuất ra JPEG

Trình diển Power Point và xuất ra JPEG
Bạn đang làm bài thuyết trình bằng công cụ Power Point , sau đó bạn muốn xuất “sản phẩm” của
mình ra định dạng .jpeg . Thủ thuật sau sẽ giúp bạn thực hiện điều này dể dàng .
Bạn mở Notepad và chép đọan mã sau vào , lưu tập tin này và đặt tên cho nó là
powerexportjpeg.vbs .
MessageText = "Trinh dien PowerPoint va xuat ra dinh dang JPEG"
TitleText = "Vi du ve PowerPoint"
Call Welcome()
Dim oPPT
Dim oPPTDoc
Dim sPath
Dim sOutput
sPath= InputBox("Nhap duong dan cho PowerPoint :",TitleText )
sOutput= InputBox("Nhap duong dan ban can xuat ra dinh dang JPEG:",TitleText )
Set oPPT = WScript.CreateObject("PowerPoint.Application")
oPPT.Visible = TRUE
Set oPPTDoc=oPPT.Presentations.Open(sPath,,,False)
oPPTDoc.Export sOutput,"JPG"
oPPTDoc.Close
Set oPPTDoc = Nothing
oPPT.Quit
set oPPT = Nothing
MsgBox "Qua trinh xuat ra hoan tat",vbInformation+vbOkOnly,TitleText
Sub Welcome()
Dim iPrompt
iPrompt = MsgBox(MessageText, _
vbOKCancel + vbInformation, _
TitleText )
If iPrompt = vbCancel Then
WScript.Quit
End If
End Sub
Sau đó bạn tiến hành chạy tập tin này , chọn OK . Khi đó sẽ có một bãng thông báo hiện ra :
Bạn gỏ vào vị trí lưu trử tập tin PowerPoint chẳng hạn như : C:power.ppt
Nhấn nút OK , một bãng thông báo hiện ra bạn nhập đường dẩn mà bạn cần xuất định dạng
JPEG chẳng hạn như C:vhf . Nhấn nút OK . Vậy là xong .
Đến đây bạn vào C:vhf để xem thành quả của mình .