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

VBA PowerPoint Discussion :

Barre de progression image VBA


Sujet :

VBA PowerPoint

  1. #1
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Août 2014
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Août 2014
    Messages : 2
    Points : 4
    Points
    4
    Par défaut Barre de progression image VBA
    Bonjour,

    Je souhaite réaliser une barre de progression non pas avec une shape classique "rectangle" mais avec une shape image.

    Cette image est présente sur toutes les slides au même endroit nommée "Image 55".
    Pour chaque slide, la macro doit faire avancer l'Image 55 telle un barre de progression.

    La macro ci-dessous fait le travail mais il n'y a pas d'incrémentation en fonction du nombre de diapos. Quelqu'un pourrait m'aider à écrire la ligne permettant d'incrementer le déplacement de la shape en fonction du nombre de diapos ?

    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
     
    Sub AddProgressBar()
        'On Error Resume Next
            With ActivePresentation
                  For X = 1 To .Slides.Count
                    Dim pcs_Shape As Shape
                    Dim b_Find As Boolean
                    b_Find = False
                    For Each pcs_Shape In .Slides(X).Shapes
                        If pcs_Shape.Name = "Picture 55" Then
                            b_Find = True
                            Exit For
                        End If
                    Next pcs_Shape
     
                    If b_Find Then
                        .Slides(X).Shapes("Picture 55").Left = .Slides(X).Shapes("Picture 55").Left - 1000  'va faire avancer la shape de 1000 pour TOUTES les diapos
     
     
                    End If
                  Next X
            End With
    End Sub
    Merci de votre aide

  2. #2
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Août 2014
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Août 2014
    Messages : 2
    Points : 4
    Points
    4
    Par défaut
    Résolu par la macro suivante.

    Elle implique de bien positionner la shape sur la diapo 1, puis la macro fait le reste.
    Deux autres macros fonctionnent de paire avec celle là :

    - Dupliquer la shape de la diapo 1 sur toutes les diapos ;
    - Supprimer la shape sur toutes les diapos.

    Voilà la macro d'avancement de la shape :
    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
    Sub AddProgressBar()
            With ActivePresentation
                  For x = 1 To .Slides.Count   
                    Dim pcs_Shape As Shape
                    Dim b_Find As Boolean
                    b_Find = False
                    For Each pcs_Shape In .Slides(x).Shapes
                        If pcs_Shape.Name = "Picture 55" Then
                            b_Find = True
                            Exit For
                        End If
                    Next pcs_Shape
     
                    If b_Find Then
                        .Slides(x).Shapes("Picture 55").Left = .Slides(x).Shapes("Picture 55").Left + (x * .PageSetup.SlideWidth / .Slides.Count)
     
                    End If
                  Next x
            End With
    End Sub

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Barre de progression (Excel - VBa)
    Par CloDeMarc dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 20/03/2008, 20h18
  2. [VBA-A]paramétrer une barre de progression sur une requête
    Par jeronimo dans le forum VBA Access
    Réponses: 3
    Dernier message: 06/02/2006, 21h38
  3. Barre de progression VBA pour formulaire Access
    Par beegees dans le forum Access
    Réponses: 1
    Dernier message: 30/10/2005, 13h10
  4. Créer une barre de progression sous Vba ??
    Par Deejoh dans le forum Général VBA
    Réponses: 7
    Dernier message: 17/10/2005, 16h05

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