Bild von einem Server in einer Folie anzeigen

Hallo Naren,

vielen Dank für Deine Hilfe. Leider funktioniert der Code bei mir nicht. Ich nehme mal an, dass der Code automatisch ins deutsche Übersetzt wurde. Leider kann ich hier mir Deinen Post nicht im Original anzeigen lassen. Wäre es Dir möglich, mir eine PowerPoint, welche bereits das Makro enthält zu schicken? Oder einen Link dazu? Das würde mir sehr helfen. Danach werde ich mich dann gerne an Stack Overflow wenden.
Liebe Grüße

Diese Antwort wurde automatisch übersetzt. Daher können grammatikalische Fehler oder seltsame Formulierungen vorkommen.

Lieber Lungile,

Guten Tag! Vielen Dank, dass Sie sich an die Microsoft-Community gewandt haben. Wir sind hier, um Ihnen zu helfen.

Nach meinem Verständnis möchten Sie, dass die Bilder jedes Mal aktualisiert werden, wenn die Folien angezeigt werden, um sicherzustellen, dass die neueste Version angezeigt wird. Sie suchen nach einem funktionierenden VBA-Makro oder einer PowerPoint-Beispieldatei, um diese Funktionalität zu erreichen.

Da sich unsere Community jedoch hauptsächlich auf die allgemeinen Probleme mit SharePoint Online und integrierten Funktionen konzentriert und diese spezielle Abfrage möglicherweise speziellere Unterstützung erfordert, empfehle ich den Besuch des Stack Overflow - Where Developers Learn, Share, & Build Careers. Die Experten und anderen Nutzer dort verfügen über einen großen Wissensschatz und sollten in der Lage sein, Ihnen die detaillierte Hilfe zu leisten, die Sie benötigen. Der Stack-Überlauf ist die von Microsoft empfohlene Plattform für VBA-Codeabfragen.

In der Zwischenzeit stelle ich Ihnen ein VBA-Makro zur Verfügung, das alle vorhandenen Bilder auf den Folien 4 und 8 löscht und dann das Bild von der angegebenen URL hinzufügt. Das Unterprogramm OnSlideShowPageChange stellt sicher, dass das Bild jedes Mal aktualisiert wird, wenn Sie während der Diashow zu den Folien 4 und 8 navigieren. Sie müssen sicherstellen, dass Sie **http://yourserver.com/yourimage.jpg** durch die tatsächliche URL Ihres Bildes ersetzen .

Öffnen Sie Ihre PowerPoint-Präsentation. Drücken Sie Alt + F11 , um den VBA-Editor zu öffnen. Fügen Sie ein neues Modul ein, indem Sie auf > Modul einfügen klicken . Kopieren Sie den folgenden Code, und fügen Sie ihn in das Modul ein:

Abo RefreshImages()

    Dim slideIndex als Ganzzahl

    Folie als Folie dimmen

    Dim imageUrl als Zeichenfolge

    Dunkle Form Als Form

    ' URLs der Bilder

    imageUrl = http://yourserver.com/yourimage.jpg

    ' Durchlaufen Sie die Folien 4 und 8

    Für jede FolieIndex im Array(4, 8)

        Festlegen der Folie = ActivePresentation.Slides(slideIndex)

        Für jede Form in der Folie. Gebilde

            Wenn Form. Geben Sie dann = msoPicture ein

                Form. Löschen

            Ende, wenn

        Nächste Form

        gleiten. Shapes.AddPicture(imageUrl, _

                                msoFalse, msoCTrue, _

                                0, 0, -1, -1)

    Nächste FolieIndex

Ende Sub

Sub OnSlideShowPageChange(ByVal SSW als SlideShowWindow)

    Wenn SSW. View.CurrentShowPosition = 4 oder SSW. View.CurrentShowPosition = 8 dann

        Bilder aktualisieren

    Ende, wenn

Ende Sub

Nachdem Sie den obigen Code hinzugefügt haben, schließen Sie bitte den VBA-Editor. Drücken Sie ALT+F8, wählen Sie Images aktualisieren aus , und klicken Sie auf Ausführen , um das Makro zu testen.

Falls Sie weitere Unterstützung für den obigen Code benötigen, posten Sie Ihre Anfrage bitte in Beiträge mit 'powerpoint vba to link image' - Stack Overflow.

Einen schönen Tag und pass auf dich auf! 😊 

Aufrichtig 

Naren | Moderator der Microsoft-Community