Søg
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
Libra Office 26.2.5.2 - Er sort - Kan an ændre til lysere baggrund ? (Windows 11) Af Ikke-ekspert i Office & Kontorpakker 3 24/08/202620:07 25/08/202613:07
Skift fra Microsoft365 til Microsoft 2024 Af 1Dorte i Office & Kontorpakker 8 19/08/202619:46 26/08/202622:30
Kan jeg beholde Publisher på min maskine efter at MS stopper med support Af KurtG i Office & Kontorpakker 17 05/08/202610:19 07/08/202617:34
Afinstallere Office 2024 Af mort1 i Office & Kontorpakker 8 17/07/202614:41 21/07/202618:35
Fjern AI-eksperten Af KurtG i Office & Kontorpakker 2 25/06/202618:56 25/06/202619:53
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 14:10 Komme ind på : YouSeeMusic" Af Ikke-ekspert i Musik & videoafspillere
I går 13:27 Send/modtag i Outlook 2024 Af ErikHg i E-mail programmer
10/0915:34 Installer alarmlyd på Samsung Galaxy XCover 7 Pro Af ErikHg i Mobiltelefoner
08/0913:06 Kan ikke starte min pc Af Malm i PC
07/0919:20 DVD program Af dcedata1977 i Andet software
White papers
Flere white papers »