Si të kopjoni rrëshqitje të shtuara në prezantimin tuaj në PowerPoint me makro VBA?

Përditësimi i fundit: Qershor 2020

Zbatohet për: Office 2019 dhe më të vjetër. Vetëm Windows.

Ja një pyetje nga një lexues:

Si pjesë e prezantimit të raportit tim tremujor para menaxhmentit, shpesh më duhet të kopjoj disa sllajde me informacion të përgjithshëm nga prezantime të tjera. Jo një punë e madhe, por do të ishte një kursim i rëndësishëm nëse mund të automatizoni këtë ushtrim. Çdo ndihmë VBA Macro për të arritur këtë është vlerësuar!

Siç e përmendët sapo, mund të automatizoni kopjimin dhe ngjitjen e rrëshqitjeve në PowerPoint duke përdorur Visual Basic për Aplikacione. Nëse keni nevojë të krijoni disa prezantime çdo muaj, ky automatizimi i kopjimit/importimit të diapozitivëve mund të bëhet një kursim i madh kohe!

PowerPoint VBA për shtimin e rrëshqitjeve

Le të vazhdojmë me këtë ushtrim të thjeshtë.

Së pari, sigurohuni që skeda juaj e zhvillimit të jetë e aktivizuar dhe e dukshme. Ja se si ta bëni këtë .

Unë do të supozoj se ju keni krijuar tashmë një prezantim të aktivizuar Macro (lloji i skedarit është .pptm), që e keni vendosur në të njëjtin direktorium me prezantimin tuaj të burimit (të cilin unë do t'i referohem si source.pptm). Ja se si të krijoni një prezantim në PowerPoint me VBA .

Së pari, le të bëjmë një kopje rezervë të atij prezantimi (kopjoni dhe ruani thjeshtë).

Pastaj le të shkojmë përpara dhe të futim makro-në e mëposhtme në një modul të ri VBA në prezantimin tuaj të destinacionit. Të gjitha detajet se si ta bëni këtë mund të gjenden në tutorialin tonë të PowerPoint VBA .

Këtu është kodi VBA që do t'ju nevojitet për të kopjuar dhe ngjitur automatikisht rrëshqitjet.

Disa supozime që bëra:

• Prezantimi juaj i burimit quhet source.pptm
•  Ju do të ngjitni rrëshqitje 2-4 nga prezantimi juaj burimor
• Ju do t'i vendosni sllajdet e kopjuara duke filluar nga rrëshqitja 5.

Sub InsertFromOtherPres()

' This short VBA macro copies slides from one presentation and inserts them into another

ActivePresentation.Slides.InsertFromFile FileName:="source.pptm", Index:=1, SlideStart:=2, 
SlideEnd:=4

End Sub

Natyrisht, mos ngurroni të ndryshoni indeksimin e numrit të rrëshqitjes në kod në mënyrë që ato të përshtaten me kërkesat tuaja.

Ju mund ta bëni atë të qarkullojë përmes disa prezantimeve dhe të futni rrëshqitje specifike nga secila në raportin tuaj të menaxhimit.

PowerPoint VBA për dublikimin e rrëshqitjeve

Në vend që të kopjoni sllajde në një prezantim tjetër, mund të dëshironi të klononi një ose më shumë sllajde në prezantimin tuaj:

Sub CopySlides()

' Short snippet to duplicate the third slide in a presentation, change the index/es accrodingly

ActivePresentation.Slides(3).Duplicate

End Sub

Këto ishin vetëm disa shembuj të thjeshtë të automatizimit të PowerPoint. Lexuesit që kërkojnë pyetje specifike, ndjehuni të lirë të dërgoni një pyetje përmes faqes së Kontaktit.

Shpresoj se ju ndihmon 🙂