Daca vreti sa inserati 100 de poze in PowerPoint, dar in acelasi timp doriti ca fiecare slide sa contina numai 1 poza, puteti urma pasii urmatori (asta ca sa nu pierdeti prea mult timp):
1. Deschideti PowerPoint.
2. Urmati calea spre meniul Tools->Macro->Macros
3. Tastati Macro1
4. Apasati butonul Create.
5. Copiati codul de mai jos acolo:
Sub Macro1()
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog( _
Type:=msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
mleft = InputBox(“x:”)
mtop = InputBox(“y:”)
mwidth = InputBox(“Width (Default=720):”)
mheight = InputBox(“Height (Default=540):”)
If mleft = “” Then mleft = 0
If mtop = “” Then mtop = 0
If mwidth = “” Then mwidth = 720
If mheight = “” Then mheight = 540
n = 1
With dlgOpen
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
ActivePresentation.Slides.Add( _
Index:=n, _
Layout:=ppLayoutBlank).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture( _
FileName:=vrtSelectedItem, _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=mleft, _
Top:=mtop, _
Width:=mwidth, _
Height:=mheight).Select
n = n + 1
Next vrtSelectedItem
Else
End If
End With
Set dlgOpen = Nothing
End Sub
6. Intoarceti-va in PowerPoint.
7. Mergeti din nou in meniul Tools->Macro->Macros
8. Selectati Macro1 dupa care apasati butonul Run.
9. Introduceti pozitia pozei, coordonata x
(Apasand Enter fara a scrie nimic va seta implicit x=0)
10. Introduceti pozitia pozei, coordonata y
(Apasand Enter fara a scrie nimic va seta implicit x=0)
11. Introduceti latimea pozei
(Apasand Enter fara a scrie nimic va seta implicit latimea=720)
12. Introduceti inaltimea pozei
(Apasand Enter fara a scrie nimic va seta implicit inaltimea=540)
13. Selectati apoi fisierele/pozele pe care le doriti inserate, dupa care apasati butonul OK.
14. Gata!
