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
Problemer med Apps Af ejgil703 i Office & Kontorpakker 2 06/02/202611:30 06/02/202615:02
Blå pile på foto? Af hkprofil i Office & Kontorpakker 2 14/01/202613:00 14/01/202613:43
Kopiere fra stifinder Af hkprofil i Office & Kontorpakker 3 08/01/202612:38 08/01/202612:54
Køb af Office pakke Af OnePlusFan i Office & Kontorpakker 7 05/12/202509:01 06/12/202523:22
Kan ikke modtage mail på min iphone. Af arnepedersen i Office & Kontorpakker 1 13/11/202513:47 15/11/202510:33
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 20:30 Problemer med Solitaire & Casual Games. Af Faxholm i Apps til Android
13/0218:48 Fil kan ikke slettes Af frem-ad i Andet software
12/0215:31 Aktiedepoter Af rabitjosph i Excel
12/0214:49 Outlook smider mail i uønsket Af Trez i E-mail programmer
11/0223:03 Foot control Phillips virker ikke Af made18 i Andet hardware
White papers
Flere white papers »