CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede phuc69 Juniormester
23. november 2012 - 11:22 Der er 6 kommentarer og
1 løsning

Variabel i powerpoint

Hej

Kan man i en tekstboks lave en variabel som henter data fra et excel ark.

Eksempel vis
Der er XX i posen

hvor xx er variablen
Avatar billede xenoxsis Nybegynder
23. november 2012 - 12:11 #1
Jeg har prøvet at brygge noget sammen. Den skal ind i en "Module". Og kører når du starter dit diasshow.

Sub OnSlideShowPageChange()
    Dim i, slideNumber, shapeNumber As Integer
    Dim strWorkbookPath, strSheetName, strCellName, _
        strShapeString As String
    Dim objXl As New Excel.Application
    Dim xlSheet As Excel.Worksheet
   
    '/** SKAL ÆNDRES
    'Slide nummeret hvor du skal have koden til at køre på
    slideNumber = 1
    'Indekset på den shape som du skal ændre på (1 = Første shape på din slide)
    shapeNumber = 1
    'Stien til excel filen
    strWorkbookPath = "C:\Workbook.xls"
    'Excel arket som din data kommer fra
    strSheetName = "Ark1"
    'Excel cellen som dataen ligger i
    strCellName = "A1"
    'Strengen som der skal skrives ind i feltet (din shape)
    '<data> er stattes med indholdet i din celle
    strShapeString = "Der er <data> i posen"
    'SKAL ÆNDRES **/
   
    i = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
    If i <> 1 Then GoTo Exit_Sub
   
    objXl.Workbooks.Open strWorkbookPath
    Set xlSheet = objXl.ActiveWorkbook.Worksheets(strSheetName)
    ActivePresentation.Slides(slideNumber).Shapes(shapeNumber).TextFrame.TextRange.Text = _
        Replace(strShapeString, "<data>", xlSheet.Range(strCellName).Value)
    objXl.ActiveWorkbook.Close False
   
Exit_Sub:
    objXl.Quit
End Sub
Avatar billede phuc69 Juniormester
23. november 2012 - 12:49 #2
Jeg får en fejl der

Compile error user-defined type not defined.

på Dim objXl As New Excel.Application
Avatar billede xenoxsis Nybegynder
23. november 2012 - 13:05 #3
Ja du skal forresten lige op i tools i din Visual basic Editor, vælge References og finde Microsoft Office 12.0 Object Library. Så skulle det virke :-)
Avatar billede phuc69 Juniormester
23. november 2012 - 13:24 #4
Det virker bare super Tak

Smid et svar
Avatar billede xenoxsis Nybegynder
23. november 2012 - 13:34 #5
Er gjort :) Den første post med koden :)
Avatar billede phuc69 Juniormester
23. november 2012 - 13:39 #6
.
Avatar billede phuc69 Juniormester
23. november 2012 - 13:39 #7
.
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

Flere spørgsmål fra Office & Kontorpakker kategorien

Titel Indlæg Oprettet Seneste aktivitet
Geninstallation af Office 2019 Af ErikHg i Office & Kontorpakker 0 I dag 15:20 -
Corta til office-365 Af Novice-1 i Office & Kontorpakker 3 07/05/202420:48 07/05/202423:15
Fælles indbakke - indstillinger Af Majken i Office & Kontorpakker 4 24/04/202412:43 24/04/202414:43
Dele kalendere mellem Apple og Android Af TTA i Office & Kontorpakker 3 14/04/202421:10 16/04/202411:31
Omdirigere hyperlink til nyt site Af Morten Seiersen Skanning i Office & Kontorpakker 2 08/04/202407:22 26/04/202402:30
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 15:20 Geninstallation af Office 2019 Af ErikHg i Office & Kontorpakker
I dag 09:13 Antivirus til en Linux Mint computer? Af Polle i Linux
I går 15:30 signalforstærker til trådløs rutrer tænkes brugt til pc næt pc -og MÅSKE TV 4 m borte eller begge Af Novice-1 i Routere & Switches
I går 11:43 Hvilket styresystem på en gammel Pc ??? Af Jan Post i Andre styresystemer
I går 07:44 Virus advarsler - falske Af jdann i Backup- & Antivirus
White papers
Flere white papers »


Premium
Teaser billede
Her er de nye medlemmer af Statens It-råd: Skal vurdere it-projekter på over 15 millioner kroner
Læs mere »
Antallet af anmeldelser af ulovligt indhold på beskedtjenester stiger: Regeringen skubber ansvaret videre til EU og Belgien
Efter masser af kritik af store prisstigninger: VMware åbner for gratis licenser - ændrer i licens-strukturen
Seks store selskaber med på årets image-liste for første gang: Kæmper alle med lav kendskabsgrad
Se alle »
Computerworld
Teaser billede
Nyopdaget sårbarhed rammer næsten alle VPN'er: Gør dem usikre og nærmest ubrugelige
Læs mere »
Om under en uge går det løs: Pc’en bliver aldrig den samme igen
VPN-test fra virkeligheden: To tjenester som glimrer på hver deres måde
Test: Samsungs nyeste laptop er noget af det tætteste du kommer på en Windows-Macbook
Se alle »
CIO
Teaser billede
Nu begynder den største GDPR-retssag mod dansk myndighed nogensinde: Står over for million-bøde
Læs mere »
Sådan har Coop sagt farvel til mainframen - sparer et to-cifret millionbeløb årligt på licenser
Lukker it-systemerne ned i to uger på grund af implementering: Den bedste måde at sikre, at ingen data går tabt
Hundredevis af selskaber klager over Microsofts licens-policy: Vi er låst fast og bundet
Se alle »
Job & Karriere
Teaser billede
Her er Danmarks fem bedste CIO’er lige nu: Se de fem nominerede til prisen som Årets CIO 2024
Læs mere »
Medarbejderne fik udleveret badetøfler ved indflytningen: Kom med inden for i IBM Danmarks nye topmoderne hovedkontor
Så meget tjener dine kollegaer: Her er alle data fra Computerworlds store it-lønstatistik for 2024
Får du den løn, du fortjener? Få overblikket over hvor meget dine kolleger tjener hver måned
Se alle »
White paper
Teaser billede
SASE: Træf det rette valg – første gang
Læs mere »
Sæt turbo på din cloudperformance og minimér risikoen for DDoS-angreb
Få mere ud af din cloudinfrastruktur og gør op med de konstant stigende omkostninger
Optimering af Source-to-Pay: Identificér oplagte gevinster og skær omkostninger
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »