Trình diễn PowerPoint 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

Đọc thêm »