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
   120   121   122   123   124   125   126   127   128   129   130