Afficher information de chaque diapo
Résolu
Esther.Rt
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
Esther.Rt Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
Esther.Rt Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Afficher information de chaque diapo
- Information d'identification réseau - Guide
- Afficher appdata - Guide
- Afficher mot de passe wifi android - Guide
- Afficher taille dossier windows - Guide
- Numéroter diapo powerpoint - Guide
1 réponse
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.
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
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?
A ce moment-là, il faut mettre le nom de l'utilisateur de la session Windows.
Tu remplaces la ligne
par :
nom = Environ("username")On pourrait aussi mettre le nom du dernier utilisateur. Dans ce cas, à la place de , il faut mettre .
m@rina
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
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
Il faudrait donc que sur chaque diapo apparaissent le nom du dernier auteur a l avoir modifie
Merci