IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Powerpoint Discussion :

Remplacer une image par une autre en vba


Sujet :

Powerpoint

  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    novembre 2008
    Messages
    6
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : novembre 2008
    Messages : 6
    Points : 4
    Points
    4
    Par défaut Remplacer une image par une autre en vba
    Bonjour,
    Je cherche un code pour remplacer une image par une autre en vba. Exemple j'ai une image KO.jpg qui a pour nom de shape IMAGE, je souhaiterai remplacer l'image par Ok.jpg.

    Merci d'avance

    Cordialement,
    Stéphane B.

  2. #2
    Expert éminent sénior

    Homme Profil pro
    Développeur Vba Excel
    Inscrit en
    avril 2013
    Messages
    5 794
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Développeur Vba Excel
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : avril 2013
    Messages : 5 794
    Points : 14 303
    Points
    14 303
    Billets dans le blog
    38
    Par défaut
    Citation Envoyé par jatartaak Voir le message
    Bonjour,

    A tester :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
     
    Option Explicit
     
    Sub TestChargerUneImage()
     
        ChargerUneImage 2, "IMAGE", "C:\...\Ok.jpg"  ' A adapter
     
    End Sub
     
    Sub ChargerUneImage(ByVal NumeroSlide As Integer, ByVal NomShape As String, ByVal CheminComplet As String)
     
     
    Dim I As Integer, J As Integer
    Dim SlideEnCours As Slide
     
       If CheminComplet = "" Then
          MsgBox "Sélectionnez une image !", vbCritical
          Exit Sub
       End If
     
       Set SlideEnCours = ActivePresentation.Slides(NumeroSlide)
       With SlideEnCours
            If .Shapes.Count > 0 Then
               For J = 1 To .Shapes.Count
                   With .Shapes(J)
                        If .Name = NomShape Then .Fill.UserPicture CheminComplet
                   End With
               Next J
             End If
       End With
     
       Set SlideEnCours = Nothing
     
    End Sub
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

Discussions similaires

  1. Remplacement d'images par d'autres
    Par andre_21 dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 29/09/2011, 21h39
  2. Remplacer un caractère par un autre dans une String
    Par djack44 dans le forum Débuter avec Java
    Réponses: 7
    Dernier message: 12/03/2008, 16h16
  3. Réponses: 2
    Dernier message: 22/10/2007, 18h50
  4. Réponses: 3
    Dernier message: 21/07/2007, 02h48
  5. Parser une page pour remplaçer des mots par d'autres
    Par HALOMOTO dans le forum Langage
    Réponses: 13
    Dernier message: 13/07/2006, 23h58

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo