none
Powerpoint dynamic image load RRS feed

  • Allgemeine Diskussion

  • Hey! 

    I'm looking for a solution where a powerpoiint presentation is loading a random image from a given folder on the 2nd slide. Can I achive this with a macro? Are there any examples? 

    Thanks for your help! 
    James
    Freitag, 9. September 2011 09:16

Alle Antworten

  • Hallo,

    Weil hier ein deutsches Forum ist, werde ich halt die deutsche Sprache verwenden.

    Hier ist ein Beispiel wie man:

    -      Alle Bilder aus einem Pfad lesen kann

    -      Ein zufälliges Bild auswählen kann

    -      Und es in einem neuen Slide einfügen kann

     

    Dim m_colAllFiles As Collection
    
    Public Sub InsertRandomPictureInNewSlide()
        Dim i As Integer
        Dim sl As Slide
        
        'erst mal alle Dateien finden in einer Collection einfuegen
        FindAllPicturesInAFolder "C:\Users\Bogdan\Desktop\Bilder"
        If m_colAllFiles.Count > 0 Then
            'eine belibige Nummer nehmen
            Randomize
            i = Rnd(m_colAllFiles.Count)
            'Slide und dann Bild einfuegen
            Set sl = ActivePresentation.Slides.Add(ActivePresentation.Slides.Count, ppLayoutText)
            sl.Shapes.AddPicture m_colAllFiles(i), False, True, 10, 10
        End If
        
    End Sub
    
    
    Private Sub FindAllPicturesInAFolder(strPath As String)
        Dim strTemp As String
        
        On Error GoTo 1
        
        strTemp = Dir(strPath + "\*")
        Set m_colAllFiles = New Collection
        Do While strTemp <> ""
            Select Case Right(strTemp, 4)
                Case ".jpg", ".bmp", ".png", ".gif"
                    m_colAllFiles.Add strPath + "\" + strTemp
            End Select
            strTemp = Dir
        Loop
    1
    End Sub
    

     

    Grüße,

    Bogdan


    Ich bin gerne bei den Foren. Es kommt von Herzen. Es wird aber keine implizite oder sonstige Garantie für die geposteten Antworte / Informationen gewährt

    Freitag, 9. September 2011 15:41
  • Hey!

     

    Danke für die Antwort jedoch funktioniert es bei mir nicht. Des weiteren glaub ich das ich mich nicht ganz verständlich ausgedrückt habe.

    Ich habe eine Präsentation die in einer Endlosschleife läuft. Bei jedem Durchlauf sollte das Bild von der 2. Folie ein anderes sein. Die Bilder die für der 2. Folie zu Verfügung müssen aus einem Ordner gelesen werden.

    Also es muss ein Bild während des Präsentationsmodus gewechselt werden.

    Ist das möglich???

    Samstag, 10. September 2011 10:21
  • Hallo James,
    ja, das ist möglich.  Man sollte halt verknüpfte Bilder verwenden:
     
    So kann man die SourceFullName Eigenschaft  des Shape.LinkFormat belegen und danach ein Update machen. Alles soll dann in einem OnSlideShowPageChange Event passieren.  Hier ist ein Beispiel:
    Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)
        
        If ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1 Then
            'man sollte natuerlich GetRandomPicture selber gestalten :-)
            Wn.Presentation.Slides(2).Shapes(1).LinkFormat.SourceFullName = GetRandomPicture
            Wn.Presentation.Slides(2).Shapes(1).LinkFormat.Update
        End If
        
    End Sub
    

     
    Grüße,
    Bogdan

    Ich bin gerne bei den Foren. Es kommt von Herzen. Es wird aber keine implizite oder sonstige Garantie für die geposteten Antworte / Informationen gewährt
    Dienstag, 13. September 2011 10:41
  • Hallo James,

    bitte schaue mal die Antworen in diesem Thread:

    Powerpoint: Bild während dem Präsentationsmodus ändern

    Bist Du weitergekommen?

    VG/Bogdan


    Ich bin gerne bei den Foren. Es kommt von Herzen. Es wird aber keine implizite oder sonstige Garantie für die geposteten Antworte / Informationen gewährt

    Mittwoch, 14. September 2011 14:47
  • Dieser Thread wurde in Diskussion umgewandelt. Natürlich sind weitere Nachfragen / Beiträge möglich und selbstverständlich willkommen.

    Bogdan


    Ich bin gerne bei den Foren. Es kommt von Herzen. Es wird aber keine implizite oder sonstige Garantie für die geposteten Antworte / Informationen gewährt
    Montag, 19. September 2011 08:19