Einfuegen von jpgs in Powerpoint (VIELE jpgs)

talla

Aktives Mitglied
Thread Starter
Dabei seit
03.10.2005
Beiträge
120
Reaktionspunkte
0
Hallo,

wie stelle ich es am besten an, mehrere tausend jpgs in Microsoft PowerPoint zu importieren und zwar so, dass zuerst jeweils eine neue Folie aus einem Template eingefuegt wird, anschliessend das jpg in einer bestimmten Groesse und Position auf diese leere Folie kopiert wird. Alle auf einmal geht sicher nicht, also braeuchte ich auch noch sowas wie einen Zaehler (z.b. "if count jpgs=50 then open new presentation based on template x " und dann dasselbe wie zuvor). Ich steig da grade ueberhaupt nicht durch + natuerlich sollte das Ganze gestern schon fertig sein... :(
Bin sehr dankbar fuer Input!
 
Code:
set myFolder to choose folder
tell application "Finder"
	set allFiles to files 10 thru 15 of myFolder --to every file of myFolder
end tell

tell application "Microsoft PowerPoint"
	activate
	--make new presentation
	repeat with aFile in allFiles
		set thisSlide to make new slide at the end of the active presentation
		--with properties {layout:slide layout object over text}	
		tell the active presentation
			set pictureShape to make new picture at thisSlide ¬
				with properties {top:10, left position:10, height:100, width:150, file name:aFile as text}
		end tell
	end repeat
	set the slide of the view of document window 1 to thisSlide
end tell
 
Zurück
Oben Unten