/ Forside / Teknologi / Administrative / MS-Office / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
MS-Office
#NavnPoint
sion 18709
refi 14474
Klaudi 9389
Rosco40 5695
berpox 5456
dk 5398
webnoob 4919
Benjamin... 4870
o.v.n. 4637
10  EXTERMINA.. 4373
application.username i PowerPoint?
Fra : Bjørn G


Dato : 11-10-05 20:47

Hej NG
Jeg leder efter noget der kan hive brugernavn ind i en PP-Præsentation, á la
application.username i VBA, men kan ikke finde noget.
Er der nogen her der har noogen erfaringer med det?

Kærlig hilsen Bjørn




 
 
Benjamin Søgaard (22-10-2005)
Kommentar
Fra : Benjamin Søgaard


Dato : 22-10-05 15:13

> Jeg leder efter noget der kan hive brugernavn ind i en PP-Præsentation, á
> la application.username i VBA, men kan ikke finde noget.
> Er der nogen her der har noogen erfaringer med det?
>
> Kærlig hilsen Bjørn
>

Du kan prøve dette:

Sub username()
Dim wshnetwork As Object

Set wshnetwork = CreateObject("WScript.Network")
MsgBox (wshnetwork.UserDomain _
& " " & wshnetwork.ComputerName _
& " " & wshnetwork.username)
End Sub

Mvh Benjamin



Jan Kronsell (22-10-2005)
Kommentar
Fra : Jan Kronsell


Dato : 22-10-05 22:24


"Bjørn G" <kool@stadig_tata_stiv.dk> skrev i en meddelelse
news:434c16d1$0$179$edfadb0f@dread11.news.tele.dk...
> Hej NG
> Jeg leder efter noget der kan hive brugernavn ind i en PP-Præsentation, á
> la application.username i VBA, men kan ikke finde noget.
> Er der nogen her der har noogen erfaringer med det?
>
Denne kode indsætter brugernavnet øverst til venstre på første dias i en
aktiv præsentation:

Sub BrugerInd()
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
.AddShape(msoShapeRectangle, 0, 0, 150, 40).TextFrame
.TextRange.Text = Environ("username")
.MarginBottom = 10
.MarginLeft = 10
.MarginRight = 10
.MarginTop = 10
End With
End Sub



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste