Questione : Come potreste ridimensionare automaticamente & disporre le immagini in una lima di PowerPoint ad una posizione specifica su ogni scorrevole?

Ciò è collegata “può voi generare automaticamente una lima di PowerPoint con un'immagine per pagina da un dispositivo di piegatura selezionato?„ la macro del

The dalla domanda relativa funziona bene, ma vorrei sapere se potesse essere modificato in modo che: gli strizzacervelli del
- le immagini 20% prima della collocazione loro sul &
- dello scorrevole li dispongono 2 " giù dalla parte superiore su ogni scorrevole? class= > " libero " del
soluzioni >Related class= href= " /Software/Office_Productivity/Office_Suites/MS_Office/Powerpoint/Q_25790132.html " title= " di Can " qRelatedParent " generate automaticamente una lima di PowerPoint con un'immagine per pagina da un popolare selezionato…

Risposta : Come potreste ridimensionare automaticamente & disporre le immagini in una lima di PowerPoint ad una posizione specifica su ogni scorrevole?

Ritocco secondario allora

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 secondari ()

Sull'errore ErrHandler di avanzamento

sPath fioco come stringa
sPath = InputBox (“entrare nel percorso del dispositivo di piegatura con le immagini„)
Se di destra (sPath, 1) = “\„ allora sPath = ha andato (sPath, Len (sPath) - 1)

Fso fioco come oggetto
fsoFolder fioco come oggetto
fsoFile fioco come oggetto

pptLayout fioco come CustomLayout
Oscurare la i come numero intero
i = 1
Regolare il pptLayout = ActivePresentation.Slides (1).CustomLayout
Oscurare il pptSlide come scorrevole
Oscurare il pptShape come figura
pixelsPerInch di Const come numero intero = 96

Regolare il fso = CreateObject (“scripting.filesystemobject„)
Regolare il fsoFolder = fso.GetFolder (sPath)
Per ciascuno fsoFile in fsoFolder.Files
    i = i + 1
    Regolare il pptSlide = ActivePresentation.Slides.AddSlide (i, pptLayout)
    Regolare il 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 di pptShape.Width
DoEvents
fsoFile seguente

Uscire il sommergibile
ErrHandler:
Riassunto dopo

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us