Notifikationer

Markér alle som læst Log ud

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
Outlook send/modtag manuelt Af pwn i Office & Kontorpakker	2	18/03/202623:30	19/03/202618:22
Ændre navn på ost-fil i Outlook Af TTA i Office & Kontorpakker	1	16/03/202610:59	16/03/202612:55
Outlook fejler: 0x80070057 + 0x800CCC0E Af TTA i Office & Kontorpakker	5	15/03/202616:12	16/03/202608:55
License koden til Office 365 er væk Af made18 i Office & Kontorpakker	11	21/02/202617:16	26/02/202608:16
Problemer med Apps Af ejgil703 i Office & Kontorpakker	3	06/02/202611:30	16/03/202607:48

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