Prezentacija z .gif in črto napredka
Hah. Črta napredka. Ne vem niti kako bi prevedel … to je tista rdeča črta, ki jo vidite na vrhu. Na internetu sem dobil macro, ki vam to črto izdela avtomatično.
V bistvu je črta kar dobra stvar, ker si poslušalec sčasoma zrajta, da ta črta pomeni, kako dolgo mu boste še težili z vašo prezentacijo. Kodo najdete spodaj.
Sicer pa sem poleg omenjene črte prvič v svoji prezentaciji uporabil tudi .gif, premikajoče slike, ki niso film. Vstavite jih na zavihku Insert/Movie/Movie from file. V bistvu kar dobra zadeva, bomo videli kakšne bodo reakcije.
Ja, prvič sem uporabil tudi 16:9 format, o tem sem nekaj že pisal, Microsoft ponuja kar nekaj dobrih predlog.
Makro za črto:
Sub Presentation_Progress_Marker()
On Error Resume Next
With ActivePresentation
For N = 4 To .Slides.Count
.Slides(N).Shapes(“Progress_Marker”).Delete
Set s = .Slides(N).Shapes.AddShape(msoShapeRoundedRectangle, 0, 0, N * .PageSetup.SlideWidth / .Slides.Count, 6)
Call s.Fill.Solid
s.Fill.ForeColor.RGB = RGB(168, 82, 41)
s.Line.Visible = False
s.Name = “Progress_Marker”
Next N:
End With
End Sub
Vstavite ga tako, da greste na zavihek Developer in kliknete Visual Basic. Na levi strani kliknete VBA project, sledi Insert new module. Potem prilimate zgornjo kodo, zaprete. Kliknete soseda od prej (Macros).
Pojavi se vam okno, ker morate videti Presentation_Progress_Marker. Izberite in zaženite. Voila!
Ker sem vredu in vas imam rad, in ker vem, da vas večina nima pojma o Visual basicu (tudi jaz ne, da ne bo pomote), nekaj priporočil:
Omenjeni macro zaženite po tem, ko ste popolnoma zadovoljni s številom strani in vsem, tako rekoč tik pred oddajo.
Če želite shraniti Macro morate pri Save as izbrati Power-Point Macro enabled presentation.
Če želite spremeniti barvo, vnesite številke sem: s.Fill.ForeColor.RGB = RGB(168, 82, 41)*
Če želite spremeniti debelino črte, vnesite številko sem: .Slides(N).Shapes.AddShape(msoShapeRoundedRectangle, 0, 0, N * .PageSetup.SlideWidth / .Slides.Count, 6), višja cifra, bolj debela črta
Če želite črto že na prvi strani (jaz začenjam na 4.), vnesite številko 1 sem: For N = 4 To .Slides.Count
Te stvari sem ugotovil s poskušanjem in malo testiranja. Še vedno ne znam zbrisati rezultatov macra. Ko ga enkrat zaženem, ni poti nazaj, razen z Undo gumbom. Ampak, saj ni tako pomembno.
Srečno. Aja, če kdo vpraša lahko rečete, da ste delali na roke, haha, 3 ure. Če pa imate to osebo radi, pa ji lahko poveste resnico.
Za vsa vprašanja sem seveda vselej na voljo.
*te barve so druga zgodba, sam sem uporabil CA 2.1, picker za barvo