Afficher information de chaque diapo

Résolu

Esther.Rt Messages postés 5 Statut Membre -
Esther.Rt Messages postés 5 Statut Membre - 10 mars 2015 à 21:25

Bonjour

Nous sommes plusieurs a travailler sur la meme presentation.
J aimerais trouver un moyen d afficher de facon automatique (plutot que de devoir le saisir manuellement en notes ou en pied de page) l auteur et la date de creation de chaque slide.

Auriez vous un code pour creer une macro?

Merci beaucoup

Afficher la suite

1 réponse

Réponse 1 / 1
m@rina Messages postés 27551 Date d'inscription Statut Modérateur Dernière intervention 11 562
Bonjour,

Avec une macro, supposant que le nom de la personne a été renseigné dans sa version d'Office.
A paramétrer, selon l'endroit où tu veux mettre l'information, la taille, la couleur, etc.
```
Sub auteur()
Dim nom As String, diapo As Slide
On Error Resume Next

nom = Application.ActivePresentation.BuiltInDocumentProperties.Item("author").Value
Set diapo = ActiveWindow.Selection.SlideRange(1)

With diapo.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 10, 200, 30).TextFrame
    .MarginLeft = 0
With .TextRange
    .Text = nom
    .Font.Size = 9
End With
End With

End Sub 
```
1
1. Esther.Rt Messages postés 5 Statut Membre
  
  Bonjour
  
  Merci beaucoup pour cette réponse. La macro fonctionne, seulement elle me renvoie le nom de l utilisateur qui a cree le document et non de celui qui a modifie la slide en dernier...
  
  Puis je modifier le code afin de renvoyer cette information?
  
  0
2. m@rina Messages postés 27551 Date d'inscription Statut Modérateur Dernière intervention 11 562
  
  Ah oui désolée !
  A ce moment-là, il faut mettre le nom de l'utilisateur de la session Windows.
  Tu remplaces la ligne
  Nom =
  
  par :
  nom = Environ("username")
  
  On pourrait aussi mettre le nom du dernier utilisateur. Dans ce cas, à la place de
  Author
  , il faut mettre
  Last Author
  .
  
  m@rina
  
  0
3. Esther.Rt Messages postés 5 Statut Membre
  
  Merci beaucoup Marina
  
  Je sens que c est presque ca, cette fois le nom du dernier utilisateur m apparait sur chaque slide.
  Neanmoins, cela ne prend pas en compte le fait que le dernier utilisateur ait modifie ou non la slide en question.
  
  Peut-on coder quelque chose du style: s'il y a eu modification de la slide, afficher last author, sinon afficher auteur anterieur,etc...
  
  Merci encore
  
  0
4. m@rina Messages postés 27551 Date d'inscription Statut Modérateur Dernière intervention 11 562
  
  Bonjour,
  
  Je ne comprends pas bien pourquoi le nom du dernier utilisateur apparaît sur chaque slide, puisque la macro ne fonctionne que pour la diapo active.
  Le principe est de relier la macro à un bouton, et de cliquer dessus une fois qu'on a fait la modif sur la diapo.
  Par ailleurs, le texte inséré reste du texte, et n'a pas de lien avec le dernier auteur.
  
  m@rina
  
  0
5. Esther.Rt Messages postés 5 Statut Membre
  
  Le texte s affiche sur plusieurs diapos car j ai fait le test a plusieurs endroits. En fait, ce que je souhaite est de pouvoir verifier une fois le document termine qui a fait quelle slide(dernier a l avoir modifiee), sans obliger chaque utilisateur a faire tourner la macro apres chaque modif
  
  Il faudrait donc que sur chaque diapo apparaissent le nom du dernier auteur a l avoir modifie
  
  Merci
  
  0

Afficher information de chaque diapo

1 réponse

Discussions similaires

Newsletters