Avatar billede jamark Praktikant
07. juni 2006 - 18:26 Der er 4 kommentarer og
1 løsning

Fodnote i skabelon til PowerPoint

Jeg er ved at lave en skabelon for mit firma. Jeg kunne godt tænke mig, hvis der når man starter skabelonen popper et vindue frem, som beder en om at indtaste projektnavn og dato. Når man klikker OK skulle projektnavnet så stå som fodnoten og datoen som fast dato. Jeg kunne forestille mig, at vi skal have fat i Visual Basic, men jeg kan ikke helt huske, hvordan det fungerer.
Avatar billede jkrons Professor
08. juni 2006 - 00:26 #1
Desværre kan det nok ikke lade sig gøre. I modsætning til fx Word og Excel har PP ingen hændelse, der trigges, når en præsentation åbnes, eller en ny præsentation oprettes på baggrund af en skabelon.

Se http://www.pptfaq.com/FAQ00741.htm

Liket foreslår at man opretter en Add-In, men en sådan add-in afspilles hver gang en præsentation oprettes uanset hvilken skabelon, den baseres på.

I PP kan makroer stort set kun afspilles gennem bruger interaktion. Shyam Pillai havde tidligere en event-handler på sin hjemmeside, men jeg kan ikke længere finde den. Du er dog velkommen til selv at kontrollere :-)  Se http://skp.mvps.org/
Avatar billede jamark Praktikant
08. juni 2006 - 02:43 #2
jkrons: Jeg er bange for at du nok har ret. Men jeg prøver nok, om jeg kan få det til at virke alligevel. Så må jeg få det trigget på en anden måde.

Jeg har i øvrigt også oprettet en tråd under Visual Basic(som henviser til denne her). Den kan findes på:

http://www.eksperten.dk/spm/714157
Avatar billede jamark Praktikant
15. juni 2006 - 00:49 #3
Jeg har selv fundet løsningen nu:

    With Application.ActivePresentation.SlideMaster.HeadersFooters
        .Footer.Text = TbProjectName 'Tekstboksen med Projektnavn
        .DisplayOnTitleSlide = True
    End With
           
    If ObDate1.Value = True Then 'Hvis der er valgt en fast dato
        With Application.ActivePresentation.SlideMaster.HeadersFooters.DateAndTime
            .Text = TbDate1 'Tekstboks med valgt dato
            .UseFormat = False
                       
        End With
    Else 'Hvis der er valgt, at datoen altid skal være dags dato
        With Application.ActivePresentation.SlideMaster.HeadersFooters.DateAndTime
            .UseFormat = True
            .Format = ppDateTimeMdyyyy
        End With
    End If
Avatar billede jkrons Professor
15. juni 2006 - 10:25 #4
jamark-> Hvordan udløser du makroen?
Avatar billede jamark Praktikant
15. juni 2006 - 17:16 #5
Jeg laver en ny toolbar med et ikon, der åbner præsentationen og starter en userform, hvor man kan indtaste projektnavn og vælge fast eller opdaterende dato.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester