kid_m
18 Wrzesień 2005 17:25
#1
x = 160 y = 138 width = 400 height = 300 set objPPT = CreateObject (“PowerPoint.application”) objPPT.Visible = 1 set objPresentation = objPPT.presentations.add objPresentation.ApplyTemplate (“c:\program files\microsoft office\templates\presentation designs\crayons.pot”) set objFSO = CreateObject (“Scripting.FileSystemObject”) DO userPath = InputBox (“zawierającego pożądane obrazy”, “wprowadź ściężkę do katalogu”, “”) IF userPath <> “” THEN IF objFSO.FolderExists (userPath) THEN set objFolder = objFSO.GetFolder (userPath) set allFiles = objFolder.Files FOR EACH objFile in allFiles set objSlide = objPresentation.Slides.Add (1, 1) set objShapes = objSlide.Shapes objShapes.AddPicture (userPath) & “” & objFile.Name, 1, 1, x, y, width, height NEXT objPresentation.SaveAs (“c:\album.ppt”) DO slideTime = InputBox (“jaki ma minąć między wyświetleniem kolejnych slajdów”, “wprowadź czas [sekundy]”, “” ) IF ( not isNumeric (slideTime) ) THEN slideTime = 0 LOOP UNTIL cInt (slideTime) > 0 const ppAdvanceOnTime = 2 const ppShowTypeKiosk = 3 const ppSlideShowDone = 5 objPresentation.Slides.Range.SlideShowTransition.AdvanceTime = cInt (slideTime) objPresentation.Slides.Range.SlideShowTransition.AdvanceOnTime = TRUE objPresentation.SlideShowSettings.AdvanceMode = ppAdvanceOnTime objPresentation.SlideShowSettings.ShowType = ppShowTypeKiosk objPresentation.SlideShowSettings.StartingSlide = 1 objPresentation.SlideShowSettings.EndingSlide = objPresentation.Slides.Count set objSlideShow = objPresentation.SlideShowSettings.Run.View DO UNTIL objSlideShow.State = ppSlideShowDone LOOP objPresentation.Close objPPT.Quit ELSE Wscript.Echo “wprowadź poprawną ścieżkę dostępu !” END IF END IF LOOP UNTIL objFSO.FolderExists (userPath) or userPath = “” WScript.Echo “prezentacja album została zapisana na dysku c:”
jak to dziala i co robi…?
do uruchomienia skryptu (rozszerzenie vbs) potrzeba zainstalowanego w domyslnej lokalizacji programu Power Point + folderu z jakimis obrazkami
uruchamiamy skrypt. wprowadzamy sciezke dostepu do folderu zawierajacego obrazki, a nastepnie czas jaki ma minac miedzy wyswietleniem kolejnych slajdow. prezentacja zapisuje sie na dysku C
PROBLEM: co musze dopisac w kodzie aby po uruchomieniu zapisanej prezentacji obrazki zmienialy sie czasowo - tak samo jak podczas tworzenia albumu
?