CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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

Synes godt om

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

Synes godt om

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

Synes godt om

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

Synes godt om

phuc69 Juniormester

23. november 2012 - 13:24 #4

Det virker bare super Tak

Smid et svar

Synes godt om

xenoxsis Nybegynder

23. november 2012 - 13:34 #5

Er gjort :) Den første post med koden :)

Synes godt om

phuc69 Juniormester

23. november 2012 - 13:39 #6

Synes godt om

phuc69 Juniormester

23. november 2012 - 13:39 #7

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Afslag ved aktivering af Office 2019 :-( Af ErikHg i Office & Kontorpakker	23	15/06/202512:59	I går 23:06
Overføre Office 2021 til ny pc Af Mariann i Office & Kontorpakker	6	12/06/202520:24	13/06/202514:44
Ændre/slette forslag til navn i Outlook Af TTA i Office & Kontorpakker	4	21/05/202512:43	23/05/202509:57
Højtaler og Bluetooth Af made18 i Office & Kontorpakker	10	13/05/202507:31	16/05/202509:47
Windows Update fejler Af TTA i Office & Kontorpakker	56	13/05/202500:32	20/05/202516:51

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS