Power-point. Indsætning af flere billeder

Du kan lave dem lige store med det gratis program IrfanView.
Beskrivelse og link til download: http://www.eksperten.dk/artikler/180

Ellers kan detlade sig gøre via en VBA-kode i PP, således at alle bileder indsættes på hvert sit dias - samme størrelse, samme placering.

Har skrevet koden og afprøvet med ca. 40 billeder - indsættes på ca. 2 sek.

Skrevet til office 2003 - men skulle nok kunne fungere i 2000.

Interesseret?

Ja tak, det er jeg da helt sikkert interesseret i, men ved ikke hvordan man indsætter en kode:\

OK - det kan du få hjælp til....

Spørgsmål:
hvilke fil-typer er der tale om? Har testet med .jpg
Hvilke størrelse skal billederne have?
Hvilke placering?
Er det ok med et billede pr. dias?

Hej igen,

-Det er .jpg
-Billederne skal være ca 13 cm høje og 19 cm brede.
-Placeringen gør ikke så meget, men ca. midt på.
-Et billede pr. dias er perfekt.

Tak - vender tilbage......

Mange tak!

"Brugsanvisning":

Kopier VBA-koden til udklipsholderen

1) Indsæt kode / Tilpas sti til mappe
Åbn PowerPoint
Evt. skal der sikkerhedsniveauet sættes til at køre med makroer (Se under funktioner – Makro eller Sikkerhed)
- kan ikke huske omstændighederne i PP 2000. Evt. skal PP lukkes og startes igen efter dette

Tryk Alt+F11 (VBA-koden åbnes)
Højreklik på ”projektet” til venstre
Vælg Insert / Module
Kopier koden ind heri
Tilpas linie med stien til mappen – linie 3 i koden
Luk VBA-vinduet
Gem præsentationen

2) Test koden
Alt+F8 (makro-vindue åbnes)
Makroen ”Opbygbilleder” er markeret  - Afspil
= == =

VBA-koden:
Dim xsti, filnavn, ix
Sub OpbygBilleder()
    xsti = "D:\BilledDataBasePB\Arkiverede Billeder\"  '<< STIEN T/DIN MAPPE, TILPAS
    ix = 1

    hentFiler xsti
End Sub
Sub hentFiler(folderspec)
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
    For Each f1 In fc
        filnavn = f1.Name
        If LCase(Right(filnavn, 3)) = "jpg" Then
            indsætBillede
            ix = ix + 1
            indsætNySlide
        End If
    Next
End Sub
Private Sub indsætBillede()
    ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:=xsti + filnavn, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-67, Top:=-71, Width:=856, Height:=684).Select
    With ActiveWindow.Selection.ShapeRange
        .Fill.Transparency = 0#
        .LockAspectRatio = msoFalse
        .Height = 368.38
        .Width = 538.38
        .Left = 82.12
        .Top = 94.25
    End With
End Sub
Private Sub indsætNySlide()
    ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=ix, Layout:=ppLayoutText).SlideIndex
End Sub

Det var pænt af dig at lave alt det arbejde. Jeg kan først teste det senere, da jeg ikke lige har min præsentation her, men tusind tak. Vejmand, du skal da også have lidt af pointene, så kan du ikke også smide et svar?

Okay, svar kommer her.  :-)

Håber fordelingen er ok:) Tak for hjælpen

Helt okay, det er alt rigeligt til mig. Velbekomme, og tak for point.  :-)

OK - sig til, hvis problemer...