PowerPoint: looge esitluse edenemisriba
Oma PowerPointi esitlusest ülevaate hoidmiseks saate luua rakenduse PowerPoint edenemisriba. See näitab teile ja teie publikule, kui kaugel olete oma esitlusega. See praktiline näpunäide näitab teile, kuidas seda teha.
Sisestage PowerPointi edenemisnäidik - seda peate tegema
Allpool näitame teile, kuidas luua oma PowerPointi esitluse edenemisriba:
- Esmalt avage PowerPointis "Valikud".
- Klõpsake "Kohanda lint" ja märkige "Arendaja tööriistad". Salvestage see protsess nupuga "OK".
- Nüüd peate minema vahekaardile "Arendaja tööriistad". Kui olete seal jõudnud, klõpsake nuppu "Visual Basic".
- Teksti siia lisamiseks klõpsake "Lisa" ja lõpuks "Moodul".
- Kleepige sinna järgmine kood (allikas: Inkade ajaveeb):
- Valik Selgesõnaline Avalik slaid Avalik slaid Kujuna Sub EinfProbar () Dim AnzSeiten Nii kaua AnSSeiten = ActivePresentation.Slides.Count iga sld kohta ActivePresentation.Slides 'AddShape'i parameetrid (vorm (1 = ristkülik), kaugus vasakult, kaugus ülalt), Laius, kõrgus) Määrake shp = sld.Shapes.AddShape (1, 36, 500, 648 / AnzSeiten * sld.SlideNumber, 10) 'Nimi määramine edenemisribale; on vaja riba hiljem kustutamiseks. shp.Name = "ProBar" & sld.SlideNumber shp.Fill.ForeColor.RGB = RGB (0, 52, 104) shp.Fill.BackColor.RGB = RGB (0, 52, 104) Next End Sub Sub DelProbar () Iga sld kohta ActivePresentation.Slaidide iga sps In sld.Shapes Kui shp.Nimi nagu "ProBar *" Thenshp.Delete End, kui Next Next End Sub
- Seejärel saate tööriistast väljuda ja klõpsata jaotises "Arendusriistad" jaotises "Makrod".
- Edenemisriba lisamiseks märkige kirje "EinfProbar" ja kinnitage valikuga "Käivita".
- Märkus: riba ei värskendata automaatselt. Esitluse värskendamisel peate riba eemaldama menüükäsuga „Makrod”> „DelProbar” ja sisestama uuesti, nagu kirjeldatud 7. sammus.
See praktiline näpunäide põhineb Windows 2010 all oleval Office 2010-l. Järgmises praktilises näpunäites näitame teile, kuidas saate PowerPointi muudatusi jälgida.