Question : Comment pourriez-vous remettre à la côte et placer des images automatiquement dans un dossier de PowerPoint à un endroit spécifique sur chaque glissière ?

Ceci est rapporté « peut vous créer un dossier de PowerPoint automatiquement avec une image par la page d'une chemise choisie ? » le macro du

The de la question relative fonctionne bien, mais je voudrais savoir si pourrait être modifié de sorte qu'elle : le rétrécissement du
- les images 20% avant de les placer sur le &
- de glissière les placent 2 " vers le bas à partir du dessus sur chaque glissière ? class= > " clair " de
solutions >Related class= le href= " /Software/Office_Productivity/Office_Suites/MS_Office/Powerpoint/Q_25790132.html " title= " de Can " qRelatedParent " vous créez un dossier de PowerPoint automatiquement avec une image par la page d'un pli choisi…

Réponse : Comment pourriez-vous remettre à la côte et placer des images automatiquement dans un dossier de PowerPoint à un endroit spécifique sur chaque glissière ?

Coup sec mineur alors

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

Sur l'erreur ErrHandler GoTo

Faible sPath comme corde
sPath = InputBox (« entrer dans le chemin de la chemise avec des images »)
Si droit (le sPath, 1) = « \ » puis sPath = est parti (sPath, Len (sPath) - 1)

Faible fso comme objet
Faible fsoFolder comme objet
Faible fsoFile comme objet

Faible pptLayout comme CustomLayout
Obscurcir I comme nombre entier
i = 1
Placer le pptLayout = l'ActivePresentation.Slides (1).CustomLayout
Obscurcir le pptSlide en tant que glissière
Obscurcir le pptShape comme forme
pixelsPerInch de Const comme nombre entier = 96

Placer le fso = le CreateObject (« scripting.filesystemobject »)
Placer le fsoFolder = le fso.GetFolder (le sPath)
Pour chacun fsoFile dans fsoFolder.Files
    i = I + 1
    Placer le pptSlide = l'ActivePresentation.Slides.AddSlide (I, le pptLayout)
    Placer le pptShape = le 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
Prochain fsoFile

Sortir le sous-marin
ErrHandler :
Résumé après

Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us