Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Powerpoint > VBA PowerPoint
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 16/08/2011, 16h32   #1
Invité de passage
 
Homme
Inscription : avril 2011
Messages : 5
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : Belgique

Informations forums :
Inscription : avril 2011
Messages : 5
Points : 0
Points : 0
Par défaut modifier le path des fichiers son

Voilà j ai powerpoint 2007 j ai +/- 20 fichiers son est il possible d' editer uniquement le chemin des fichiers son juste pour modifier le path ?
Pour ne pas tout recommencer supprimer l objet fond sonor et le recréer ..

Merci pour votre aide
42marvin42 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 16/08/2011, 18h48   #2
Rédacteur/Modérateur
 
Avatar de Philippe JOCHMANS
 
Homme Philippe JOCHMANS
Développeur informatique
Inscription : mai 2005
Messages : 17 617
Détails du profil
Informations personnelles :
Nom : Homme Philippe JOCHMANS
Âge : 44
Localisation : France, Loir et Cher (Centre)

Informations professionnelles :
Activité : Développeur informatique
Secteur : Communication - Médias

Informations forums :
Inscription : mai 2005
Messages : 17 617
Points : 30 956
Points : 30 956
Envoyer un message via MSN à Philippe JOCHMANS Envoyer un message via Skype™ à Philippe JOCHMANS
Bonjour

Ce bout de code va te permettre de récupérer le chemin :

Code :
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
Public Sub RecupPathSon()
    '---------------------------------------------------------------------------------------
    ' Procedure      : RecupPathSon
    ' Auteur         : Philippe JOCHMANS - http://starec.developpez.com
    ' Date           : 16/08/2011
    ' Commentaires   : Récupération du chemin des fichiers son dans un diaporama PowerPoint
    '---------------------------------------------------------------------------------------
 
    Dim objPres As Presentation
    Dim objSld As Slide
    Dim objShp As Shape
 
    ' affectation
 
    Set objPres = ActivePresentation
 
    ' parcourt des diapositives de la présentation
    For Each objSld In objPres.Slides
        ' parcourt des formes des diapositives
        For Each objShp In objSld.Shapes
            ' on test si c'est un objet lié
            If objShp.Type = msoMedia Then
                If objShp.MediaType = ppMediaTypeSound Then
                    MsgBox objShp.LinkFormat.SourceFullName
                End If
            End If
        Next objShp
    Next objSld
 
End Sub
Tu peux également t'inspirer de cela :

http://www.developpez.net/forums/d11...ichiers-excel/

Le principe est le même. Cependant si le fichier est intégré (cas des .wav), tu n'aurais pas de chemin.


Philippe
__________________
Détaillez vos questions, sinon vous aurez des réponses erronées et vous irez tout droit dans le et lisez les règles sinon
Si vous pensez commencer sans un livre, oublier : livres pour débuter
Vous pouvez consulter mes articles sur Access et PowerPoint
Le blog Office.

Inutile de m'envoyer un MP pour des questions techniques ou de me relancer , je n'y répondrais pas.
Philippe JOCHMANS est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 09h27.


 
 
 
 
Partenaires

Hébergement Web