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
G mail Af johnnylassen i Office & Kontorpakker	1	14/02/202510:43	14/02/202511:14
Sletning af alle filer og billeder på computer uden at det slettes i OneDrive Af Nina i Office & Kontorpakker	5	09/02/202518:18	11/02/202510:51
Større typer i outlooks mapperude Af per2edb i Office & Kontorpakker	8	05/02/202517:00	06/02/202514:27
Personlig signatur til hvert medlem i en mailgruppe - Outlook officeapp (ikke web) Af Jørgen Kirkegaard i Office & Kontorpakker	1	04/02/202511:48	07/02/202515:55
Hvordan finder man sin første start mailadresse til Office pakken? Af JutThomsen i Office & Kontorpakker	4	04/02/202511:45	05/02/202516:03

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