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 🙂


Si të shkruani nga e djathta në të majtë në Microsoft Office 2016 , 2019 / 365?

Si të shkruani nga e djathta në të majtë në Microsoft Office 2016 , 2019 / 365?

Mësoni si të kaloni nga tastierat LTR në RTL në Microsoft Word.

Si të vendosni ngjyrën e shkronjave të tekstit Excel me VBA?

Si të vendosni ngjyrën e shkronjave të tekstit Excel me VBA?

Mësoni si të përdorni Excel VBA për të ndryshuar në mënyrë programore tekstin, ngjyrën, madhësinë dhe vetitë e qelizës.

Si të kontrolloni nëse një qelizë ose një varg qelizash të shumta është bosh me Excel VBA?

Si të kontrolloni nëse një qelizë ose një varg qelizash të shumta është bosh me Excel VBA?

Mësoni se si të programoni vba për të kërkuar qeliza boshe në një fletë pune ose një gamë qelizash.

Performanca e ngadaltë e Microsoft Word? Shtatë këshilla për ta bërë Word 365 / 2019 / 2016 të funksionojë shumë më shpejt

Performanca e ngadaltë e Microsoft Word? Shtatë këshilla për ta bërë Word 365 / 2019 / 2016 të funksionojë shumë më shpejt

Mësoni se si mund ta bëni me lehtësi Word 365 të funksionojë më shpejt duke çaktivizuar shtesat, duke përmirësuar harduerin tuaj dhe duke hequr qafe

A mund të fshij skedarët vc_red nga hard disku i kompjuterit tim personal?

A mund të fshij skedarët vc_red nga hard disku i kompjuterit tim personal?

Mësoni gjithçka që nevojitet për instalimin e VC_RED dhe skedarët e kabinetit. A është e sigurt t'i fshini ato nga sistemi juaj operativ Windows 7 & 10?

Si të punoni me kutitë e mesazheve dhe hyrjeve në PowerPoint VBA?

Si të punoni me kutitë e mesazheve dhe hyrjeve në PowerPoint VBA?

Mësoni se si të kodoni kutitë e mesazheve dhe hyrjeve me VBA në PowerPoint

Si të krijoni dhe shtoni rrëshqitje në prezantimet në PowerPoint me VBA?

Si të krijoni dhe shtoni rrëshqitje në prezantimet në PowerPoint me VBA?

Mësoni se si të shkruani një makro të thjeshtë VBA për të futur rrëshqitje dhe për të krijuar një Prezantim të ri

Si mund ti modifikoj ngjyrat e temës së ekranit të Office 2016?

Si mund ti modifikoj ngjyrat e temës së ekranit të Office 2016?

Mësoni se si të aplikoni skemat e ngjyrave të personalizuara të Office.

Shfaqni tekstin e kokës dhe të fundit vetëm në faqen e parë në Word 365 / 2016 / 2019 dhe Google Docs?

Shfaqni tekstin e kokës dhe të fundit vetëm në faqen e parë në Word 365 / 2016 / 2019 dhe Google Docs?

Mësoni se si të shfaqni fundin dhe kokën në faqen e parë vetëm në Word 365, 2016 dhe 2019; si dhe në Dokumentet e Google

Si të hapni skedarë .one në kompjuterët MAC dhe Windows?

Si të hapni skedarë .one në kompjuterët MAC dhe Windows?

Mësoni se si të hapni shtesat e skedarëve OneNote të MAC dhe Windows