Cum inserezi rapid mai multe poze in PowerPoint

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!

via

Advertisement

spot_img

OUG 93/2022 – RESTITUIRE...

Ordonanța a fost emisă în contextul situației extraordinare creată...

Guvernul a aprobat acordarea...

Guvernul a aprobat în ședința de astăzi acordarea unui...

INFORMARE (2022) – referitoare...

Ca urmare a modificării Legii nr. 129/2019 pentru prevenirea...

Reforma economiei sociale, prevăzută...

Guvernul a aprobat o Ordonanță de urgență pentru modificarea...

MIPE – lansarea platformei...

Începând cu data de 31.03.2022, platforma pentru depunerea și...

OUG 93/2022 – RESTITUIRE TAXE AUTO

Ordonanța a fost emisă în contextul situației extraordinare creată în contextul Cauzei de infringement 2017/2.108 declanşate împotriva României de către Comisia Europeană pentru motivul...

Guvernul a aprobat acordarea ajutorului financiar de 700 de lei, în luna iulie, pensionarilor ale căror venituri sunt mai mici sau egale cu 2000...

Guvernul a aprobat în ședința de astăzi acordarea unui ajutor financiar în valoare de 700 de lei pentru pensionarii din sistemul public, sistemul pensiilor...

INFORMARE (2022) – referitoare la depunerea anuală a declarației privind beneficiarii reali

Ca urmare a modificării Legii nr. 129/2019 pentru prevenirea şi combaterea spălării banilor şi finanțării terorismului, precum şi pentru modificarea şi completarea unor acte...

Reforma economiei sociale, prevăzută în PNRR, finalizată de Ministerul Muncii și Solidarității Sociale

Guvernul a aprobat o Ordonanță de urgență pentru modificarea și completarea Legii nr.219/2015 privind economia socială, cu scopul de a crea un mediu favorabil...

MIPE – lansarea platformei PNRR Proiecte. Link oficial aici!

Începând cu data de 31.03.2022, platforma pentru depunerea și gestionarea proiectelor aferente investițiilor din PNRR dezvoltată de Ministerul Investițiilor si Proiectelor Europene va fi...

DNSC (ALERTA) – campanie cibernetică malițioasă cu malware de tip Trojan Stealer via email

Directoratul Național de Securitate Cibernetică (DNSC) atrage atenția asupra faptului că, începând cu data de 25 martie 2022, este în desfășurare o campanie cibernetică...

Ghid pentru asigurarea securității cibernetice pentru IMM-uri

Directoratul Național de Securitate Cibernetică (DNSC) - a publicat pe site-ul oficial un - Ghid pentru asigurarea securității cibernetice pentru IMM-uri - pe care...

Safety first, please …

Ouch - via Telegram Group
%d bloggers like this: