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
Kategori
Se alle it-kurser fra Computerworld Kurser
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.
Se alle it-kurser

Flere spørgsmål fra Office & Kontorpakker kategorien

Titel Indlæg Oprettet Seneste aktivitet
Libre Office Write ("Spiser" ord, når man retter) Af Ikke-ekspert i Office & Kontorpakker 3 14/04/202520:01 14/04/202522:18
Outlook viser ikke billeder Af HHA i Office & Kontorpakker 6 13/04/202512:19 13/04/202521:14
Works Suite Af Novicen i Office & Kontorpakker 1 12/04/202511:13 12/04/202511:37
Tegnsæt ændres tilbage Af Jørgen Kirkegaard i Office & Kontorpakker 3 08/04/202509:14 11/04/202516:37
LibreOffice calc Af Btimmer i Office & Kontorpakker 6 07/04/202514:56 07/04/202523:13
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 går 15:46 Meta AI = Svær at foor væk ? Af Ikke-ekspert i Chat & Messaging
I går 12:05 Intet signal Af Gnuff i PC
16/0420:01 Coca-Cola - eller Pepsi-Cola automater i The White House, USA ? Af Ikke-ekspert i Fri debat
16/0416:53 Mailkonto iPhone fungerer ikke Af carstenpri i E-mail programmer
15/0415:32 Skype telefon nummer Af Nørdnot i Chat & Messaging
White papers
Flere white papers »


Premium
Teaser billede
CVE-databasen reddet i allersidste øjeblik - ny bevilling godkendt
Læs mere »
Netcompany-stifterne André Rogaczewski og Claus Bo Jørgensen skovler penge ind: Har tjent næsten 600 millioner kroner på et år
Sådan modererer Mads og 20 andre danskere alt indhold på Metas danske platforme fra et center i Barcelona
Jeg købte tømmermands-pizza for alle mine bitcoins og gik glip af en formue: Nu overvejer jeg at gå all-in igen
Se alle »
Computerworld
Teaser billede
USA annullerer it-kontrakter for 35 milliarder kroner med omgående virkning: Accenture og Deloitte rammes hårdt
Læs mere »
Test af monster-tablet: Det er den skøreste og mærkeligste computer, som jeg har testet i lang tid – men jeg vil nu gerne have den alligevel
Dansk hardware-producent har blokeret ERP-system for at undgå Trump-told
Keanu Reeves vender uventet tilbage som lejemorder
Se alle »
CIO
Teaser billede
Danske virksomheder søger væk fra amerikanske tech-giganter: Mange vil skifte til tysk Microsoft-alternativ
Læs mere »
Overblik: Får du den rigtige løn? Så meget tjener de danske it-faggrupper om måneden i gennemsnit
Kræver nye systemer: Folk siger op, hvis virksomheden ikke skifter til S/4 Hana
Google udnytter Microsoft-brugernes modvilje mod at skifte fra Windows 10 til 11: Klar med ny løsning
Se alle »
Job & Karriere
Teaser billede
Den danske it-branche er på vagt: Hvad nu hvis Trump lukker for Microsoft 365 og AWS fra på mandag?
Læs mere »
Carsten advarede som it-sikkerhedschef om problemer og blev fyret: "Det endte med voksen-mobning af værste skuffe"
Microsoft fyrer de dårligst performende ansatte: Disse jobtitler bliver ramt
Danske it-folk lokkes med store tiltrædelses-bonusser: Nu kan du score mere end 100.000 kroner ved at skrive under på ny jobkontrakt
Se alle »
White paper
Teaser billede
Sådan sikrer du nem og beskyttet adgang til dine ressourcer
Læs mere »
Tidsbegrænset kampagne: Overvejer du at udskifte eller tilføje printere i din forretning? Vi kan tilbyde én eller flere maskiner gratis
Sikkerhed gjort enkelt: Beskyt din virksomhed direkte i browseren
Sådan: Virtualisering uden vendor lock-in og høje omkostninger
Se alle »

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