L'utilisation de VBA pour insérer/mettre à jour une image dans PowerPoint?

Je fais un interactif de présentation Powerpoint qui a déjà lire un fichier texte à partir de mon serveur local (XAMPP) et de les afficher. Je voudrais maintenant mettre à jour, de sorte que l'utilisateur peut main-d'écrire leur réponse, et il affiche que sur le diaporama. J'ai un plugin jQuery qui permet à une personne d'utiliser un stylet et il enregistre le 'dessin' comme une image sur le serveur local.

Ma question est, comment puis-je insérer l'image dans PowerPoint à l'aide d'une Macro VBA? Ou depuis l'image aurons toujours le même chemin d'accès au fichier, mais sera remplacée par une autre image, je peux en quelque sorte "mise à Jour" de l'image sur la diapositive? Désolé si c'est confus.

C'est le VBA, j'ai essayé:

Sub insert()
    Dim oPic As Shape
    Set oPic = ActivePresentation.Slides(1).Shapes.AddPicture("http://localhost/image.png", False, True, 0, 0, -1, -1)
End Sub

J'ai également pu obtenir le chemin d'accès de l'image sur l'ordinateur, pas sur le serveur.

Quand je lance la macro, j'obtiens un "fichier non trouvé" erreur. Personne ne sait quel est le problème?

Merci!

PS: Si ça intéresse quelqu'un, le plugin est appelé Signature Pad.

InformationsquelleAutor Caleb | 2013-04-02
  1. 2

    Ressemble je peux insérer une image si elle est dans le même dossier:

    Sub insert()
    Dim oPic As Shape
    Set oPic = ActivePresentation.Slides(1).Shapes.AddPicture("image.png", False, True, 0, 0, -1, -1)
End Sub

    Cela fonctionne, mais si quelqu'un sait comment faire pour aller dans un autre dossier, s'il vous plaît laissez-moi savoir. Si j'essaie folder/image.png ou /folder/image.png que le chemin d'accès au fichier, il ne fonctionne pas.

    • Je ne sais pas quel est le problème avec votre premier code, parce que quand je le lance pour une image dans le web, il est de le placer dans ma présentation. Pour les photos sur votre ordinateur, vous devriez plutôt l'état du chemin d'accès complet ou set "répertoire courant" par le changer pour celui de votre choix à l'aide de ChDir c:\my path\here
    • C'est peut-être différent sur Mac?
    InformationsquelleAutor Caleb
  2. 1

    Il n'a pas besoin d'être dans le même dossier, mais vous avez besoin de les utiliser Mac-style chemins:

    #If Mac Then
    imagePath = (MacScript("get path to startup disk as string") & "Users:name:Desktop:SomeFolder:My_Picture.png")
#Else
    imagePath = "C:\path\to\My_Picture.png"
#End If

activeSlide.Shapes.AddPicture(imagePath, False, True, 10, 10)

    Espère que ça aide.

    InformationsquelleAutor Rob