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
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