Vraag : Hoe kon u resize & automatisch beelden in een dossier van PowerPoint bij een specifieke plaats op elke dia plaatsen?

Dit is verwant met „kan u een dossier van PowerPoint met één beeld per pagina van een geselecteerde omslag automatisch creëren?“ de macro

The van de verwante vraag werkt goed, maar ik zou willen weten of zou kunnen worden gewijzigd zodat het: plaats
- krimpt beelden 20% alvorens hen op de dia &
- hen neer 2 " vanaf de bovenkant op elke dia te plaatsen?
Related Oplossingen: Can u leidt automatisch tot een dossier van PowerPoint met één beeld per pagina van een geselecteerde vouw…

Antwoord : Hoe kon u resize & automatisch beelden in een dossier van PowerPoint bij een specifieke plaats op elke dia plaatsen?

Minder belangrijk kneepje toen

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:

Sub insertPictures ()

Op Fout GoTo ErrHandler

Schemerige sPath als Koord
sPath = InputBox („ga de weg van de omslag met beelden in“)
Als Juist (sPath, 1) = „\“ toen sPath = wegging (sPath, Len (sPath) - 1)

Verduister fso als Voorwerp
Verduister fsoFolder als Voorwerp
Verduister fsoFile als Voorwerp

Verduister pptLayout als CustomLayout
Verduister I als Geheel
i = 1
Reeks pptLayout = ActivePresentation.Slides (1) .CustomLayout
Schemerige pptSlide als Dia
Schemerige pptShape als Vorm
Const pixelsPerInch als Geheel = 96

Vastgestelde fso = CreateObject („scripting.filesystemobject“)
Reeks fsoFolder = fso.GetFolder (sPath)
Voor elk fsoFile in fsoFolder.Files
    i = I + 1
    Vastgestelde pptSlide = ActivePresentation.Slides.AddSlide (I, pptLayout)
    Reeks 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 - pptShape.Width)/2
DoEvents
Volgende fsoFile

Sub van de uitgang
ErrHandler:
Hervat daarna

Beëindig Sub
Andere oplossingen  
 
programming4us programming4us