Page 125 - Sổ Tay 100 Mẹo Vặt Sử Dụng Máy Vi Tính
P. 125
sOutput= InputBox("Nhap duong dan cho
JP E G:", TitleText)
Set oPPT = WScript.CreateObject
("PovverPoint. 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 "Da thuc hien xong
!",vblníormation+vbOkOnly, TitleText
Sub WelcomeO
Dim iPrompt
iPrompt = MsgBox(MessageText, _
vbOKCancel + vblníormation, _
TitleText)
If iPrompt = vbCancel Then
WScript.Quit
End If
End Sub
Sau đó, bạn chạy tập tin này, chọn OK. Khi đó sẽ có
một hộp thoại hiện ra yêu cầu nhập đường dẫn. Bạn nhập
vào đường dẫn đến tập tin PovverPoint, chẳng hạn như:
F:\congtuanpc\Vidu.ppt.
Nhấn OK. Tiếp theo, bạn nhập đường dẫn mà bạn cần
xuất định dạng JPEG ra, chẳng hạn như
F:\Image_TuanPC. Nhấn OK. Vậy là xong. Đến đây, bạn
vào F:\Image_TuanPC để xem thành quả của mình
127