Jelenítse meg a diavetítés nevét az összes PowerPoint-dián
Sok prezentáció nem igényel VBA-megoldásokat. Valójában létrehozhat prezentációkat, és soha nem használhatja a VBA-t. Időnként azonban belemerül valami olyanba, amelybe a PowerPoint nem képes önmagában. Például nincs beépített módszer a diavetítés nevének a dián (vagy az összes dián) történő megjelenítésére. Ehhez használhatja az alábbi egyszerű makrót:
Sub SlideShowName ()
'Szövegmező hozzáadása a diavetítés nevének megjelenítéséhez.
Dim sld mint dia
Dim shp As Shape
Minden sld-re az ActivePresentation.Slides-ben
Minden shp-hez In sld.Shapes
Ha bal (shp.Name, 6) = "Láb" Akkor
shp.TextFrame.TextRange.Text = ActivePresentation.FullName
Vége If
Következő
Következő
Befejezés Sub
A makró használatakor a legnagyobb döntés nem a makró, hanem az, hogy hogyan hívjuk fel. Ahelyett, hogy úgy döntene, úgy a legegyszerűbb módszert fogom használni - egy kicsit később. Most egy pillanatra átnézheti a makrót. A kód a bemutatás minden diáján szereplő összes alakon átcsavarodik. Amikor a kód olyan alakzatot talál, amely a „lábléc” szöveggel kezdődik, akkor a diavetítés nevét jeleníti meg az alak. Ez az útvonal lehetővé teszi, hogy a lábléc hozzáadásával válassza ki, melyik dián jelenjen meg a név. Tegyük fel most:
- Kattintson a Beszúrás fülre.
- Kattintson a Fejléc és lábléc elemre a Szöveg csoportban.
- A megjelenő párbeszédpanelen kattintson a Lábléc lehetőségre, majd kattintson az Alkalmazás mindenkinek elemre. A láblécet az egyes diákhoz vagy diák csoportjához adhatja, nem pedig az egészet - ez csak az Ön igényeitől függ.
Amint a láblécek a helyükön vannak, az alábbiak szerint járjon el:
- A Visual Basic Editor (VBE) elindításához nyomja meg az Alt + F11 gombot.
- Kattintson a Modul elemre a Beszúrás menüben.
- A kapott modulban írja be a fenti eljárást.
- A prezentációt makró-képes prezentációként mentse (.pptm).
Ezen a ponton készen áll a makró futtatására:
- Kattintson a Fejlesztő fülre.
- Kattintson a Kód csoport Makró lehetőségére.
- A megjelenő párbeszédpanelen válassza a SlideShowName () makrót és kattintson a Futtatás gombra.
Minden láblécben lévő dia megjeleníti a diavetítés nevét. A makrók végrehajtására más módok is vannak, de ez a legegyszerűbb. Amikor a makrót alkalmazza a saját előadásokra, érdemes eltérő triggert használni. Ezenkívül ez a makró nem dinamikus. Ha megváltoztatja a prezentációs fájl nevét, akkor ne felejtse el újra futtatni a makrót.
