Fråga : Hur kunde du resize, & att förlägga avbildar automatiskt i en Powerpoint sparar på ett specifikt läge på varje glidbana?

Detta förbinds ”kan dig skapa en Powerpoint sparar med en avbildar automatiskt per sidan från en utvald mapp?”, makroen för

The från det släkt ifrågasätter arbeten väl, men jag skulle något liknande för att veta, om kunde ändras, så att den skulle: den hjärnskrynklaren för
- avbildar 20%, innan den förlägger dem på glidbana&-, förlägger som dem, 2 " besegrar uppifrån på varje glidbana? Related lösningar för class= ": Can du skapar en Powerpoint sparar automatiskt med en avbildar per sidan från ett utvalt veck…

Svar : Hur kunde du resize, & att förlägga avbildar automatiskt i en Powerpoint sparar på ett specifikt läge på varje glidbana?

Minderårigtweak därefter

CHris
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

UnderinsertPictures ()

På felet GoTo ErrHandler

Dunkel sPath som stränger
sPath = InputBox (”skriv in banan av mappen med föreställer”),
Om högert (sPath, 1) = ”\” därefter sPath = lämnat (sPath, Len (sPath) - 1)

Dunkel fso som anmärker
Dunkel fsoFolder som anmärker
Dunkelt fsoFile som anmärker

Dunkel pptLayout som CustomLayout
Dunkelt I som heltal
i = 1
Fastställd pptLayout = ActivePresentation.Slides (1) .CustomLayout
Dunkel pptSlide som glidbana
Dunkel pptShape som Shape
Const pixelsPerInch som heltal = 96

Fastställd fso = CreateObject (”scripting.filesystemobject”)
Fastställd fsoFolder = fso.GetFolder (sPath)
För varje som är fsoFile i fsoFolder.Files
    i = I + 1
    Fastställd pptSlide = ActivePresentation.Slides.AddSlide (I, pptLayout)
    Fastställd pptShape = pptSlide.Shapes.AddPicture (fsoFile.Path, msoFalse, msoTrue, 0, 0)
'    pptShape.ScaleHeight 0.8, msoTrue
    pptShape.Top = pptShape.Top + (pixelsPerInch * 1)
    pptShape.Left = (ActivePresentation.PageSetup.SlideWidth -) för pptShape.Width/2
DoEvents
Nästa fsoFile

Gå ut suben
ErrHandler:
Meritförteckning därefter

Avsluta suben
Andra lösningar  
 
programming4us programming4us