Pergunta : Como poderia você resize & coloc imagens automaticamente em uma lima de PowerPoint em uma posição específica em cada corrediça?

Isto é relacionado “pode você criar uma lima de PowerPoint automaticamente com a uma imagem por a página de um dobrador selecionado?” o macro do

The da pergunta relacionada trabalha bem, mas eu gostaria de saber se poderia ser modificado de modo que: o psiquiatra do
- as imagens 20% antes de coloc os no &
- da corrediça coloc os 2 " para baixo da parte superior em cada corrediça? class= > " desobstruído " do
soluções >Related class= o href= " /Software/Office_Productivity/Office_Suites/MS_Office/Powerpoint/Q_25790132.html " title= " do Can " qRelatedParent " você cria uma lima de PowerPoint automaticamente com a uma imagem por a página de uma dobra selecionada…

Resposta : Como poderia você resize & coloc imagens automaticamente em uma lima de PowerPoint em uma posição específica em cada corrediça?

Emenda menor então

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 secundários ()

No erro ErrHandler empreendedores

sPath não ofuscante como a corda
sPath = InputBox (“entrar no trajeto do dobrador com retratos”)
Se direito (sPath, 1) = “\” então sPath = saido (sPath, Len (sPath) - 1)

Escurecer o fso como o objeto
Escurecer o fsoFolder como o objeto
Escurecer fsoFile como o objeto

Escurecer o pptLayout como CustomLayout
Escurecer i como o inteiro
i = 1
Ajustar o pptLayout = o ActivePresentation.Slides (1) .CustomLayout
Escurecer o pptSlide como a corrediça
Escurecer o pptShape como a forma
pixelsPerInch de Const como o inteiro = 96

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

Retirar o submarino
ErrHandler:
Resumo em seguida

Submarino da extremidade
Outras soluções  
 
programming4us programming4us