Nom Utilisateur VBA powerpoint Résolu/Fermé

Question

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

cs_Le Pivert · Answer

Bonjour,

voir ceci:

https://www.rdpslides.com/pptfaq/FAQ00751_Show_me_the_built_in_properties_and_their_values.htm

cs_Le Pivert · Answer

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

thefloflo64 · Answer

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

Nom Utilisateur VBA powerpoint

3 réponses

Discussions similaires