Nom Utilisateur VBA powerpoint
Résolu
thefloflo64
Messages postés
663
Date d'inscription
Statut
Membre
Dernière intervention
-
thefloflo64 Messages postés 663 Date d'inscription Statut Membre Dernière intervention -
thefloflo64 Messages postés 663 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je voudrais une macro qui récupérerait le nom d'ulisateur connecté afin de l'afficher sous forme de texte sur la première page d'un diaporama.
Est-ce que quelqu'un sait comment faire cela ?
Cordialement,
Florian
Je voudrais une macro qui récupérerait le nom d'ulisateur connecté afin de l'afficher sous forme de texte sur la première page d'un diaporama.
Est-ce que quelqu'un sait comment faire cela ?
Cordialement,
Florian
A voir également:
- Nom Utilisateur VBA powerpoint
- Powerpoint viewer - Télécharger - Présentation
- Insérer video powerpoint - Guide
- Powerpoint 2013 - Télécharger - Présentation
- Changer nom utilisateur windows 10 - Guide
- Idée nom d'utilisateur snapchat - Guide
3 réponses
Si cela t’intéresse; j'ai fait un programme sous Excel pour créer un Diaporama rapidement:
https://codes-sources.commentcamarche.net/source/49191-diaporama-powerpoint-depuis-excel
Bonne programmation
https://codes-sources.commentcamarche.net/source/49191-diaporama-powerpoint-depuis-excel
Bonne programmation
Voici pour ceux que cela interesse le code que j'ai adapté en fonction de mes besois :
Private Sub Auteur()
Dim x As Long
Dim MyOBJ As Object
Set MyOBJ = GetObject("WinMgmts:").instancesOf("Win32_NetworkLoginProfile")
On Error Resume Next
Debug.Print "BEGIN ===================================="
Set mybox = ActivePresentation.Slides(1).Shapes.AddTextbox( _
Orientation:=msoTextOrientationHorizontal, _
Left:=1, _
Top:=250, _
Width:=720, _
Height:=100).TextFrame.TextRange
For Each objItem In MyOBJ
MyMsg = MyMsg & objItem.FullName
Next
With ActivePresentation.BuiltInDocumentProperties
For x = 1 To .Count
Debug.Print "Property Number: " & CStr(x)
Debug.Print "Property Name: " & .Item(x).Name
Debug.Print "Property Value: " & .Item(x).Value
Next
With ActivePresentation
mybox.Text = MyMsg
End With
mybox.Font.Bold = msoFalse
mybox.Font.Size = 20
mybox.Font.Name = "Calibri"
mybox.Font.Color.RGB = RGB(110, 132, 193)
mybox.ParagraphFormat.Alignment = ppAlignCenter
Debug.Print "END ===================================="
End With
End Sub
Cordialement,
Florian
Private Sub Auteur()
Dim x As Long
Dim MyOBJ As Object
Set MyOBJ = GetObject("WinMgmts:").instancesOf("Win32_NetworkLoginProfile")
On Error Resume Next
Debug.Print "BEGIN ===================================="
Set mybox = ActivePresentation.Slides(1).Shapes.AddTextbox( _
Orientation:=msoTextOrientationHorizontal, _
Left:=1, _
Top:=250, _
Width:=720, _
Height:=100).TextFrame.TextRange
For Each objItem In MyOBJ
MyMsg = MyMsg & objItem.FullName
Next
With ActivePresentation.BuiltInDocumentProperties
For x = 1 To .Count
Debug.Print "Property Number: " & CStr(x)
Debug.Print "Property Name: " & .Item(x).Name
Debug.Print "Property Value: " & .Item(x).Value
Next
With ActivePresentation
mybox.Text = MyMsg
End With
mybox.Font.Bold = msoFalse
mybox.Font.Size = 20
mybox.Font.Name = "Calibri"
mybox.Font.Color.RGB = RGB(110, 132, 193)
mybox.ParagraphFormat.Alignment = ppAlignCenter
Debug.Print "END ===================================="
End With
End Sub
Cordialement,
Florian
C'est parfait merci
Cordialement,
Florian