Cuestión : ¿Cómo podría usted volver a clasificar según el tamaño y poner imágenes automáticamente en un archivo del PowerPoint en una localización específica en cada diapositiva?

Se relaciona esto “puede usted crear un archivo del PowerPoint automáticamente con una imagen por la página de una carpeta seleccionada?” la macro del

The de la pregunta relacionada trabaja bien, pero quisiera saber si podría ser modificado de modo que: ¿el encogimiento del
- las imágenes el 20% antes de colocarlos en el &
- de la diapositiva los coloca 2 " abajo de la tapa en cada diapositiva? class= > " claro " del
soluciones >Related class= ¿el href= " /Software/Office_Productivity/Office_Suites/MS_Office/Powerpoint/Q_25790132.html " title= " del Can " qRelatedParent " usted crea un archivo del PowerPoint automáticamente con una imagen por la página de un doblez seleccionado…

Respuesta : ¿Cómo podría usted volver a clasificar según el tamaño y poner imágenes automáticamente en un archivo del PowerPoint en una localización específica en cada diapositiva?

Pellizco de menor importancia entonces

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:

insertPictures secundarios ()

En el error ErrHandler indicado

sPath dévil como secuencia
sPath = InputBox (“entrar en la trayectoria de la carpeta con los cuadros”)
Si es derecho (el sPath, 1) = “\” entonces sPath = se fue (sPath, Len (sPath) - 1)

Fso dévil como objeto
fsoFolder dévil como objeto
fsoFile dévil como objeto

pptLayout dévil como CustomLayout
Amortiguar i como número entero
i = 1
Fijar el pptLayout = ActivePresentation.Slides (1).CustomLayout
Amortiguar el pptSlide como diapositiva
Amortiguar el pptShape como forma
pixelsPerInch de Const como número entero = 96

Fijar el fso = CreateObject (“scripting.filesystemobject”)
Fijar el fsoFolder = fso.GetFolder (el sPath)
Para cada uno fsoFile en fsoFolder.Files
    i = i + 1
    Fijar el pptSlide = ActivePresentation.Slides.AddSlide (i, el pptLayout)
    Fijar el 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 -)/2 de pptShape.Width
DoEvents
fsoFile siguiente

Salir el submarino
ErrHandler:
Curriculum vitae después

Submarino del extremo
Otras soluciones  
 
programming4us programming4us