Frage : Wie konnten Sie Bilder in eine PowerPoint-Akte an einer spezifischen Position auf jedes Dia automatisch die Größe neu bestimmen u. legen?

Dieses bezogen „kann Sie eine PowerPoint-Akte mit einem Bild pro Seite von einem vorgewählten Faltblatt automatisch herstellen?“

The Makro von der in Verbindung stehenden Frage funktioniert gut, aber ich möchte wissen, wenn geändert werden könnte, damit sie wurde:
- Psychiater die Bilder 20%, vor der Platzierung sie auf das Dia &
-, setzen sie 2 " unten von der Oberseite auf jedem Dia?
Related Lösungen: Can herstellen Sie eine PowerPoint-Akte automatisch mit einem Bild pro Seite von einer vorgewählten Falte… .

Antwort : Wie konnten Sie Bilder in eine PowerPoint-Akte an einer spezifischen Position auf jedes Dia automatisch die Größe neu bestimmen u. legen?

Kleiner Tweak dann

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:
6:
37:

VorinsertPictures ()

Auf Störung Goto- ErrHandler

Schwaches sPath als Schnur
sPath = InputBox („den Weg des Faltblatts mit Abbildungen betreten“)
Wenn recht (sPath, 1) = „\“ dann sPath = verließ (sPath, Len (sPath) - 1)

Schwaches fso als Gegenstand
Schwaches fsoFolder als Gegenstand
Schwaches fsoFile als Gegenstand

Schwaches pptLayout als CustomLayout
I als ganze Zahl verdunkeln
I = 1
pptLayout = ActivePresentation.Slides einstellen (1).CustomLayout
pptSlide als Dia verdunkeln
pptShape als Form verdunkeln
Const pixelsPerInch als ganze Zahl = 96

Fso = CreateObject („scripting.filesystemobject“) einstellen
fsoFolder = fso.GetFolder (sPath) einstellen
Für jedes fsoFile in fsoFolder.Files
    I = i + 1
    pptSlide = ActivePresentation.Slides.AddSlide (i, pptLayout) einstellen
    pptShape = pptSlide.Shapes.AddPicture (fsoFile.Path, msoFalse, msoTrue, 0, 0) einstellen
'    pptShape.ScaleHeight 0.8, msoTrue
    pptShape.Top = pptShape.Top + (pixelsPerInch * 1)
    pptShape.Left = (ActivePresentation.PageSetup.SlideWidth - pptShape.Width)/2
DoEvents
Folgendes fsoFile

Unterseeboot herausnehmen
ErrHandler:
Zusammenfassung zunächst

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us