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
Google sheets beregning udfra dato Af rickiegrayholm i Office & Kontorpakker	2	14/05/202623:24	15/05/202605:03
Back up af foto til ekstern harddisk Af hkprofil i Office & Kontorpakker	11	11/05/202610:48	12/05/202620:08
Kan ikke resette PC med Windows 8.1 Af TTA i Office & Kontorpakker	12	24/04/202617:35	26/04/202612:13
Outlook classic "hænger" når jeg vil åbne vedhæftede filer Af torzen i Office & Kontorpakker	0	16/04/202622:13	-
OneDrive kan ikke tilgås Af Perba i Office & Kontorpakker	19	13/04/202616:33	04/05/202611: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